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• Posseggo un registratore Sl- 
niUS che purtroppo non funziona 
molto bene. Infatti, dopo aver fatto 
allineare le testine da personale 
specializzato per ben tre volte, in 
fase di caricamento, genera un 
?1_0AD ERROR. Premetto che subi- 
to dopo Tal lineamento funziona a 
dovere per alcuni giorni (perciò il 
mio CB4 funziona a dovere), Cosa 
posso fare? 

(Ermanno Salvalato) 
C Tante volle non è colpa del registra- 
tole, ma delle cassette 
Tante volte non è colpa delle cassette, 
ma del registratole. 

È allora? 

Un sistema pratico per individuare il col- 
pevole è quello Or tarsi imprestare un 
registratore originale Commodore di si- 
curo funzionante. 

Se il registratore SIRI US risultasse col- 
pevole allora la mia affermazione che 
conferma l'opportunità di utilizzo di op- 
tional onginali si fa sempre più forte. 
Molto spesso infatti per nsparmiare 
qualche lira si rischiano inconvenienti di 
questo genere 

Se l'accusa si focalizza sulla cassetta 
allora è necessario registrarla più cor- 
rettamente o farsela cambiare con 
un 'altra di sicuro caricamento. 

# Ho preso il PIN— 1 (massa) del 
connettore del tape ed il PIN — 
4( lettura cassetta) ed ho fatto uno 
spinotto Tho collegato ad un regi- 
stratore mono, il tutto senza alcu- 
na interfaccia, eppure ho comoda- 
mente duplicato tante cassette 
(anche Commodore Club 113) che 
hanno H volume troppo basso. E* 
logico tutto ciò? O è solo un caso? 

(Claudio Venezia™) 


□ No non è logico! Tutto dipende dalla 
qualità del tape die probabilmente non 
è alta. Un registratore di "corsa '"potreb- 
be registrare un segnale con una tale 
distorsione che potrebbe essere ben di- 
gerita dal Computer, Qui si dovrebbe 
eseguire una lunga dissertazione sulla 
distorsione armonica, sull’onda quadra, 
etc, ma senza alcun dubbio sarebbe 
tediosa. 

• Sono un felice possessore di 
VIC-20. Ho intenzione di comprare 
una penna ottica, ma a che cosa 
può servire? Gradirei informazioni. 
Grazie. 

(Nino Trico/i) 

□ Una penna ottica può essere utile in 
molteplici applicazioni. Tutto dipende 
dal software che si fa girare. Disegnare, 
leggere ì codici a barre, rilevare delle 
coordinate e tante altre applicazioni 

• E* possibile collegare insieme il 
V I C-20 ed il Commodore 64? 

Si potrebbe per esempio continua- 
re a programmare con il 64 mentre 
il V1C stampa o carica un'altro 
programma. 

(Mario Comuzzo) 

□ Sì, ma il discorso è alquanto 
complesso 

Per dare una risposta più precisa occor- 
re anche sapere quali possano essere le 
periferiche in comune. 

In ogni caso l'accesso alla stampante o 
al floppy ed ancora al p lottar è possibile 
solo uno alla volta. Quando accede uno 
dei computer non è possibile, per l’altro, 
fare altrettanto 

• Vorrei sapere se il Software del 
Commodore 64 è compatibile con 
il Commodore 1 6 e se no, vi prego 


di indicarmi quale è disponibile sul 
mercato. Vorrei anche sapere co- 
me avviene il collegamento tramite 
Modem fra computer e se il Com- 
modore 16 ed II VIC — 20 possono 
comunicare con altri sia pìccoli, 
medi o grandi sistemi, 

(Mauro Imbriani) 
L La compatì ibi! ità Ira il C16 ed il C64 
può essere considerata totale se le istru- 
zioni BASIC utilizzate sul C64 non pre- 
vedono le PEEK, le POKE e le SYS. 
Infatti I interprete del CI 6 è una versione 
potenziata del BASIC dei 64 
Quali allora le differenze? Molte! 

— C16 maggiore facilità di utilizzo della 
grafica 

— C64 migliore qualità del "sound" 

— C16 inesistenza degli SPRITE 

— C64 mancanza de) Monitor in L M. 
etc. etc etc. 

Per ciò che riguarda il modem tutto di- 
pende dal sofware di comunicazione. Si 
possono trasferire dati oppure program- 
mi oppure ancora dare dei comandi 

• Ho acquistato la cassetta che fa 
parlare il mio Commodore 64, ma 
non riesco a far partire il program- 
ma anzi >1 mio C64 non segnala 
nemmeno l'apertura dei files. Quin- 
di chiedo come devo fare a far par- 
tire i programmi. Grazie. 

(Dante Di Senno) 
□ Il programma "La Voce 11 è un prodot- 
to di una grande complessità. E' stato 
scritto interamente in linguaggio mac- 
china (Assembler). Tranne la parte di 
caricamento e pilotaggio. 

Ecco perché è tassativo caricare LA VO- 
CE solo dopo aver spento e riacceso il 
C64 in questa maniera; 

LOAD'LA VOCE "quindi RETURN 
ed in seguito quando riappare il cursore 
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occorre digitare. 

RUN seguito daJ tasto RETURN 
Accadrà ora il caricamento automatico 
della parte sn L.M (programma R08). 
Ciò richiederà circa 5 minuti. 

• Dove posso trovare il “C16 Pro- 
grammerà Guide’'? Il manuale in 
dotazione alla macchina è quasi 
inutile! 

(M/cftele Retali) 

□ Il manuale in questione non è ancora 
disponibile sul mercato italiano. Occorre 
Sperare che tale realizzatone libraria 
possa divenire realtà al più presto 

• Chi mi può aiutare in GOLDEN 
BATQN7 Sono nella caverna l 

(Pendini Marco) 

□ Lane ia un grido di disperazione ! 
Bando agli scherzi. Non lo so caro 
Marco 

Però quale soddisfazione ne trarresti se, 
avendo la soluzione, ti svelassi 
l'arcano? 

• Vorrei sapere se è possibile far 
funzionare un VIC-20 senza modu- 
latore fì-F, e, siccome io ne sono 
sprovvisto, vorrei sapere dove 
posso acquistarlo visto che da 
queste parti non si trova. 

(Domenico Prìncipe) 

□ Rispondendo a questa domanda ri- 
tengo di poter chiarire alcuni dubbi ine- 
renti questo argomento. Sia il VIC 20 
che il" 064, nonché il Ct 6 ed il PLUS4 
posseggono sul retro della tastiera alcu- 
ni connettori che Ci permettono di avere 
funzioni ben specifiche. Uno di questi 
connettori, come è spiegato nei relativi 
manuali, offre 'a possibilità dr col legare 
direttamente un Momtorrtv. 

Solo sul V1C-2Q esiste la necessita di 


utilizzo un modulatore a radio freguen 
za. che negli altri modelli è presente af- 
linterno della tastiera In mancanza di 
questo “aggeggio 1 1 si può adattare un 
monitor oppure si può acquistare un mo- 
dulatore R.F.. anche di altro tipo, ed 
adattarlo o farlo adattare al VIC-20 

# Possiedo un Commodore 64 da 
circa 6 mesi e negli ultimi tempi 
succede che quando uso il tasto 
RETURN compaiono delle freccet- 
te rendendo impossibile il funzio- 
namento, quando schiaccio i tasti 
per lo spostamento del cursore su 
e giu appare la scrìtta LO AD PRESS 
PLAY ON TAPE. Cosa davo fare? 

(Cravanzola Cristiano) 
□ Questo tipo di inconveniente può es- 
sere causato sia dall'uso prolungato 
delia tastiera in maniera piuttosto "pe- 
sante' (famoso è il termine “digitazione 
da elefante o ippopotamo"). Un aftra 
causa potrebbe essere individuata da 
una alterazione dell 1 integrato decodifi 
catcré dì tasto premuto, oppure dai CIA 
(6526). 

Il suo caso specifico però mi lascia intui- 
re che il guasto possa essere identificato 
nella seconda ipotesi e quindi è neces- 
sario che il suo C64 necessiti di un cen- 
tro di assistenza Hardware per i Com- 
modore. Ultima ipotesi alcuni joystick, 
con ripetizione automatica di sparo inse- 
rita e collegati alla porla 1 provocano 
scherzi analoghi. Togliere quindi fa ripe- 
tizione od il jov 
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Vìa Carbone, 8 - Tel. 01 67/674097 
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Nastri per stampante 


Prezzo 


Commodori MPS Adi 

15,400 

Commodore MPS 402, 

T»lly >0 

15*550 

Commodore 3024 

5.100 

fcpson MX 7 0,60,82, SS ERG -04. 
FXBQ, RX0D, FX0O, 

Commodori* 4022, 

SO 22. I9M P/C. Sharp 

GE332P, MZ 6DP5A, PC3201 .„ 

,.. S.200 

Commodore 0022, 3022, 

Epson 1X00, Itoh B300R, 

OKI 80, 82A, S3A. 02, 93, 
Sharp P3 

.... 3.000 

hpann MX1Q0 ...... „ 

... 9.900 

Commodore B023K MPP 1361 
Sharp 8QP4A. Centronics 160 

8 .050 

Commodore 8026, 

8027, 0032 

6-950 

Dischetti Off SD * 10 

(con box Tran parome) ■ 

36 000 

Diacheni DF/DD x 10 

(con box trasparirne} „ „ 

43.000 

Disco per pulizia dello testi rie- 
ducato può essere usato per 
tfnvft con una o due tacce. 

Il liquido basta per circa 

15 appi lozioni . 

12.200 

h 




. — 1 . 


Usale la seconda faccia del 

V/S Mini disco. Taglialo a nota il costo dei 
Diacheni) Foratore di Dischetti per usare 
anche Falba faccia del disco. 

Pei esempio «Commodore 20/64, 

Apple 4, Alari, eco. a sole 12 700 

Tutti 1 prezzi sono IVA inclusa 

Pagamento co ntraasegeo Per ord in i superióri a 

L 50,000 spese poetai- » nostro carico. 


SPECIALI SCONTI A TUTTI 
I RIVENDITORI 
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DAMA CINESE 

tir Ciurmilo Rossi (i2KII> 


Come più volte affermato, sulla rivi- 
sta Commodore non saranno riportai» i 
classici giachi dfj abilità. La Dama Cine- 
se, come i giochi che verranno in futu- 
ro pubblicali con un brevissimo com- ; 
mento, non è un gioco di abitila, ma un 
vero e proprio passatempo in teli igeine. 

vissi mi riusciranno a feria capitare prò-/ 
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I Ù-: 1 

REM 






15 

1 85 

REM 

'■¥■ 



* 

309 

: if IC-'4)4ikC-5-'i:<C“é‘>’=0 THEN 3 

1 1 V 1 

Kc M 

Tk 

IL. 

GIOCO Et LEM 



15 

1 : Li 

REM 





885 

-TÈR, .0=45 

128 

REM 

i- 


ò ,R M n 


l' j. y 

: GOTO 825 

125 

REM 

£ 



"Ì 

L+ 1 - j 

■ I F ( R— 1 1 ^ ( C” i ) 1 R ^9 ) =8 THEN 3 

-1 

REM 

$ 


C t H r s E 



05 

•l “'-LI 

I 

REM 




* 

328 

■ : TCR.*C>“5 

148 

REM 

< 

Ni $ 

Ì * > »: 4 Ì Ì! 4: ^ i Ì. ^ ^ Ì: : l 


32 3 

: NtXTC 

1 43 

REM 


Ni 1 

TORE ^ I2KH 

* 

338 

NEXTR 

1 50 

REM 

4 


h L. r J k 1 RH U R U 0 5 1 


33 g 

T<5^ 5>-0 : GOSUE 445 

155 

REM 



Ì $ 4 :* jf; if: & ]f; i # 'ài 4 ? 


34S 

POR M-i TU 33 

16Ó 

REM 

w . 

VI 

C2U SI 

:* 

345 

: REMI! M 

1 65 

REM 


CO 

MNuUOPF 64 SI 


358 

* BRTPf 13, 14 , 15, 28,23, 24, 29, 30, 3 


17@ REM # C I 6 SI He 

1 75 REM ■& PLUS 4 SI $ 

180 REM * SERIE 4088/8000 SI 4 

làs rem 

1 9u I* 1 ri B t 78 ? * T ( 9 r . 9 > .. Hi< 14 > 

135 gp$= v +j rem PER V 1X25 11 

280 SP=LEN<SPÌ> 

20 5 h & - S P $ + M & " : B i - £ Pi' + ‘ : 0 : ; 

218 Pi < 88 > ™ SP$+ SPi^Sri +3P$ : IP LE M < S 
Pi “= 1 1 REM Ri c. yy ,. ] =Xi 88 +-jPi +s 
1$ 

2 1 5 Pi < 82 >~RÌ < 88 > * u 1 3 ,! +SPi + " i 4 -r GPi 

+ ’* 1 5 Ji 

Z20 Pi i ‘. 84 > "H i J !. 08 v n| " J1 22 " +S Pi + " 2‘3 " + SPi 
+ 41 24 " 

2 2-3 m i < 8 6 > -- : : 1 2 8 : : + £ Pi+ ‘ 3 0 hJ + $ r J i + : 1 3 X + S 
PÌ+ 1 ' 32 " +SPÌ+ f! 33 lf +3P£+ ”34 " +SPS+ " 

■ r iiZ ! i 

-? -J 

230 Ri < 88 “ 38 “ *SPi+ 11 39 " +SP*+ " 48 H +3 

P i +' IJ 4 1 " +SPi ■ + h 42 [L +SPÌ+ iJ 43 " + 3FÌ+ “ 

235 Hi C 1 8 > [ — 1 1 4' 3 :J +SFÌ+ 1 1 48 " +SF$+ ' 1 49 M +S 


360 

365 

370 


395 

488 

485 

413 

415 

423 

423 

438 


1 , 82 , 33 , 34 . 35 , 38 , 33 , 40 , 4 1 
DhTh 4 2 , 4 3 , 44 , 47,4 3 , 4 9 , 50 , 5 1 , 5 
2 , 53 , SS , 59 , 68 - 87 , 68 , 69 

NEXTW 
1X41 >“-3 
PRIMI 11 CHOfiEJ 

INPUT 11 [HOMEjLPì" .■ 2 
PRIMI " LH0MEH3 DOWN] 

1 F - B ■-. 2 ) — ■“■ 7 THEN 4y0 

PR I NT " [ HOME 3 [ 3 BONN J N0S3R ERRHT 

H IJ : GOTO 375 

I NPUT " L HOME 1 C 3 DOW M 1 H " ; P 
IP B ■■ P ) “8 IH E N 395 
IF B<P>-“7 THEN 395 
IF Z-F THEN 375 

I F < Z+ P > Z2 > - 1 NT t c 2 +P > Z2 > THEN 
430 

GOTO 395 

I F ( fi B S ( Z- P ) ’*■ 2 > i v HB 3 Z P I ^ i 8 O 



Pè+ fl 5fcj M +SPi+ ,, Si !t ^' 

SP*+ ,, 52 B +SP*+ ,f 


fl THEN 395 


53 c ' 


435 

G0SU5 535 = GOSUB 445 ' CO SUE 685 : G 

2 4u 

Hìa£;'-"-'R$<00>+ ,, 58 

"5y'N-SPi 


QTU 375 


r"60" 


448 

REM ****************** 


Hi < 1 4 > -Hi < 88 > + ”67 

1 +sP$+ +J 68'* +sPi 

445 

REM * H&Q10RMH LR * 


+ ,l 69^ 


459 

REM * V I SURL I iZfìZ I OHE* 

258 

ppfNT 1 -'! TI ERR I " 


455 

rem 

255 

POR 1= I TQ 14 3 TP 

-' 1 PRTNT TflB< 

460 

FR I N i " l HtjME J H 


1 iHà ( SP - i > i" 1 > f\ i ( 1 > 


465 

POR X" 1 ; 1 - 9 

8 68 

- IF I/2-IMT », 1/2 > ' 

T.HEH FRINÌ 

470 

FOR V-l TO 9 

265 

NEXT I 


475 

■ IF CK-- 1 > * i X-5 > * '■. V - D * < V— 9 > =0 

1 ^, 1" '— 

R E M i ,1 i. i i $ ■*: T- +: S : 



THEN 51Ò 

-i,"7ì" 
^ ( .» 

REM STRR1 


480 

::IF CCX-4>*(X-5>*CX-b>=0> OR < 

288 

REM *******#*#*###♦*## 


<; V-4 > * < V-5 > * < V-b > =0 > THEN 430 

285 

POR R ::i l TU S ■ POR 

C=1 TO 9 

435 

: GOTO 510 

£(0 

: POR i> 1 TO 9 


499 

■ IF T (X_. V)05 THEN 505 

V 4 j 

: ^ IF (R-4>*<R-5>* 

;feb>=9 THEN 3 

495 

: PRINT ThB<3*<SP-1>+V+NN>;h^ì 
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500 LIUTO 510 

AC PRIMI TRI ve* oi I 1 + 7+NI- 
ila ÌNEXTY 

31*3 IF XI- 1 RMI) IHLfi Pkli 

ÙWH3" 

520 : NH--2K l*vSF'“l / J I- ;, : 

1HEN HH=k2tt--<3F' •+M!^c 
525 NE TX RETURN 
, IO REM ** 

■o5 REM * hijOI ORNAMENTO * 

>4ù REM * SELLE ThLELLL * 

4j REM + *:* * ***** * f * * + 

>50 2-1 

505 POR K-i TU 9 
560 POR V~i FU $ 

> h 'j I F' L L2 1 H E ì \ G l - Ù 

5/0 IP L.+20P T'HEN SUO 

575 IF T<X.Y+l>=a THEN 395 


r * J r 0 K 1 i 0 u+_ 

75 : - . T-0 

SU ■ : -FGR V-R-l Tu K+l 
85 •: : : T=T+T0t5 X> 

5*8 : hentv 

m - ; IF TO10 THEN 808 
60 IF T < R X !-•<.> 8 THEN 3 7- 
@5 NEXTX 
18 ■ NEXTC 
15 NEXTR 

20 rem *#******##**.****** 

25 REM * FINE * 

38 REM *###**##)<»*#****## 
35 PRIMI" LCLEhRI 13 DONNI 
0 E ' FINITO" 

:48 F'R INT-C3 DOWN I R I MrtNOONG 


i45 IF FO I TNEN 855 
■58 F'R I NT" 13 DONNI ECO 
SS IMO’ 1 

i55 PRIMI" C5 D0WN3VU0 
Rii " j ■ INPUT m 
160 IF LEFTi-Cfiì, 1> = "N 
:65 RESTORE ■ RUM 


I ONflL E i l <HV I 


;OP THEN 635 
!.. V-lj-u T'HEN i31 


:75 RETURN 
m PRIMI" C 4 DONNI 
:85 END 


>55 T C X , V , ,= 0 ■ 00 T 0 6 7 5 

660 : C=C+1 

665 : NENTV 
6 7y MENTI! 

675 RETURN 

6 5 8 REM *#### * #*###*#** * * * 
635 REM * IL UluCQ E * 
698 REM a***###**##**#**** 
695 REM * FINITO ? * 

700 REM ****************** 
705 F=0 

719 FOR R=2 TO 3 

715 FOR C=2 TO 3 

r 20 IF T<vRj 005 THEN Stu 

725 :F=F*1 

730 : FOR H=R~ 1 TO R+l 
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PER LA PUBBLICITÀ DI MILANO 

RADIANT 


CONCESSIONARIA 
PER LA PUBBLICITÀ DEL CIRCUITO 

gomma italici 

& S.P.A. 


P ALAZZO CANOVA CENTRO DIREZIONALE MILANO 2 - 20090 SEGRATE (MI) 
TEL 02/2155714* 2155726-2155734 


LOMBARDIA LIGURIA 


PfBMONTE VAL D AOSTA TOSCANA 


Milano 

Bergamo 

Brescia 

Como 

Cremona 

Pavia 

Varese 


95.9-92.8-97,1 

99*3 

92-92,7 

97,1 

99,3 

95,9-97.1 

101.1 


Genova 

96.25 

Alessandria 

104.3 

La Spezia 

98.7 

Cuneo 

90,6-97.6 



Novara 

97.1 

EMILIA ROMAGNA 




Bologna 

88.7 

Aosta 

91.8-92 

Modena 

87.75 



Parma 

87,75 



Piacenza 

97,1 



Reggio E, 

87.75 




Firenze 

Livorno 

Massa C. 

Pistoia 

Pisa 

Locca 


97.6- 104.4 
98.2-97,3 -1 00.6 

98 7 

97.6- 104,4 

97,3. 

97.3 


LAZIO 


Roma 99.5 


é 





Prosegue in questa quarta puntata di 
Cornucopia Ta raccolta di Snn tutta 
redatta da Voi lettori. 
Ancora una volta alcune idee sono 
ottime, altre un po' meno, altre ancora 
un po' scarsine. 
T utto però può servire e lidea d È 
qualcuno può andare bene per un altro. 

Continuate così! 
La rubrica Cornucopia è Vostra in 
tutto e per tutto, con un’unica eccezione: 
il mio control b di validità ed esattezza 
delle notizie. 
Continuate ad inviare i vostri Snn a: 
Spétt. Rivista COMMODORE 
rubrica Cornucopia 
Gloriano Rossi 
Viale Famagosta 75 
20142 Milano 



$30 

PRINT USI MG? Questo breve programma serve per fomnat- 
tare numeri e stamparli allineati a destra. Il programa è fatto 
per la stampante VOI 525 ma può andar bene anche per 
qualsiasi altro tipo di output. 

10 INPUT "[CLR][C3RS DOW N] NUMERO 

(MAX 9 CIFRE)":N:N$=STR$(N): l=LEN (N$)-1 
20 IF L >=3 THEN 45 

30 FOR 1*3 TO L STEP 4:L$- *. M +RK3HT$ (N$ j) 

40 N=INT (N/IOGO): N$=STR$<N):N£-N$+L$:NEXT 
50 L=LEN (N$): P$=CHR$ (16) 

60 C$ S RIGHT$ (STfì$(C),2):IFC (10 THEN 
C$= E<1 0" + RlGHT$ (C$ r 1) 

70 OPEN 4 J 4:PR!NT=4,P$C$N$ 

(Filippo Tiberio) 

$31 

BLOCK FREE* Non so se può essere utile per qualcuno 
sapere che digitando LOAD 'S (ed una qualsiasi lettera dopo il 
dollaro)”, 8 si hanno direttamente di blocchi liberi sema vede- 
re la directory. 

(ignoto) 

$32 

Usta variabili. Questo programma stampa il nome di tutte le 
variabili decimali usate da un programma in BASIC. 

E' sufficiente inserire in coda al programma da testare questa 
piccola routine e dare il RUN (del numero di riga in questione), 

(Gioiamo Creatini) 

1 A =PEEK <45 > +PEEK C 48) $256 s 6 =PEEIC< 4 
?)+PEEK(4S)»E5B;F0R X=A T0 B STE 
P 7 ì PR I NTCHR$ < PEEK ( X > > ; CHR$ C REE K 
<X+1 ) > ì NEXT 


$33 

Bit per BrL La cornucopia in questione serve a visualizzare il 
contenuto di un Byte facendolo vedere Bit per Bit. 

(Luca Marcelli) 

10 INPUT " B YTES “ ; HS : I F AS="$* THEN 

end 

£0 A=VALtA$) : IF fì<0 OR A >65535 TH 
EN 10 

30 B^PEEK < A> 

40 FOR 1*1 TQ 8 : A 1 = I 

50 C s I NT < B/2 > s IF B=C*£ THEN A 1*0 

60 PRINTRi; i B=C E NEMT SPRINT; BOTO 10 


$34 

Print AT. Tante volte è necessario stampare qualcosa in una 
precisa parte dello schérmo ed allora si deve ricorrere ad una 
miriade di caratteri come quelli dei cursori tra virgolette, opera- 
zione alquanto noiosa. Questa semplice Cornucopia evita 
tutto ciò, basta dare le coordinate nella riga 20: X=riga 
Y=colonna. 

fi valore di X non deve naturalmente superare 24 e quello di Y 
deve essere minore di 40. 

(Enzo Tumino) 

10 PR I NTCHR$ < 1 4 7 > 

£0 X fi l i 1 Y»14 

30 IF X >£4 OR Y>39 THEN PRINT"ERROR 
E NELLE COORDINATE “E END 
46 POKE 7B 1 ,X* POKE 782 ,Y! POKE 780,0 
s SYS65520 

50 PR I NT 11 CORMJCOP I A " 

$35 

Questa cornucopia crea una musichetta, se si può chiamar 
così, generata casualmente dal computer. 

Riga 20 e 30 si stabilisce il livello sonoro ed fartaek. 

Riga 40 e 50 creano i valori casualmente. 

Riga 60 HIGH BVTE.X: LOW BYTE.Y 
Riga 70 forma d'onda ÙN 
Riga 80 ciclo dì durata nota. 

Riga 90 forma d f onda OFF 
Riga 99 ripetizione 

(Simon Gadaieta ) 

20 POKE 54796,15 
30 POKE 54277 ,9 
40 X* INTCRNDC 1 >$ 150 ) 

50 Y= JhJT<RND< 1 ) 1 150 ) 

60 POKE 542 7 3, Xs POKE 5 4272, Y 
70 POKE 54276,17 
80 FOR 1*1 TO 150: NEXT 
90 POKE 54276,0 
99 GOTO 40 

$36 

Ricopiando la ROM del BASIC nella sottostante RAM, è possi- 
bile tramite delle POKE modificare, o meglio personalizzare 
intere istruzioni BASIC, (questo concetto è già stato visto in 
maniera più concisa). Purtroppo te condizioni ritornano alia 
normalità premendo contemporaneamente RUN/STOF * RE- 
STORE o digitando in maniera diretta POKE 1,55. Il ripristino 
alle condizioni normali può essere eliminato digitando POKE 
808,251 (disabi Illazione dei lesti RUN/STO P - RESTORE) e 
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Ogni anno circa due milioni di persone 
visitano la Fiera Campionaria di Milano. 
Dal 1 985, ad attenderle, ci sarà 
COMPUTER SHOW 
il nuovo Salone interamente dedicato 
all'informatica per i giovani, la scuola, 
la famiglia moderna. Sicuramente sarà 
il più grande appuntamento dell’anno. 


Perché non esserci? 
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Via Monachetti, 27 - 20139 Milano 
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in seguito modificando il comando POKE agendo su opportu- 
ne I ocazioni di memoria. Ecco come tare. 

El programma visualizza tutto le locazioni di memoria che 
vanno dall'indirizzo decimate 40960 in poi (indirizzo dell'area 
di sovrapposizione ROM- RAM) il relativo codice ASCII ed il 
carattere conrispondente al codice stesso: 

10 POR C*1 TO 253PRlNT*tOGWNr ShEXT 
C 

20 A “40960 
30 N=FEEK CA ) 

40 PR INTA ,N 

50 A=A+ 1 

60 POKE 1970 ,N 

70 GET R$HF THEN 70 

S0 GOTO 30 

Durante l’esecuzione del programma premete contempora- 
neamente SHIFT +COMMODORE (passaggio al minuscolo) 
e... tenendo premuta la barra spaziatrice vi renderete conto 
delle locazioni di memoria corrispondenti ai comandi END P 
FOR, MEXT, DATA allocate da 41118 in poi. Modificando, 
tramite delle POKE, i codici ASCII memorizzati nei comandi di 
LIST (loc. 41229). PEEK (loc. 41210), SAVE (loc, 41197). ed 
aggiungendolo. Infima al programma, renderete imposstoile 
(tranne a coloro che conoscono le nuove parole chiavi) USTa- 
re il programma, leggere le locazioni modificate (PEEK), riatti- 
vare la condizione normale, salvare i programma (SAVE) e 
chi più pazienza ha più ne metta Per riassumere: te locazioni 
dei comandi da personalizzare vanno lette con il programma 
presentato e modificate con una POKE del tipo: 

POKE XI ZI : POKE X2Z2 : POKE XnZn 

dove XI , X2„..... Xn rappresentano te locazioni del comando 

da modificare (tante quanti i caratteri del comando) e 21, 

22 Zn i caratteri ASCII da modificare. St supponga di voler 

modificare, per esempio, il comando USI in CLIP, Si digiti 
dapprima NEW, E poi: 

100 FQR N=40960 TO 49151 
110 POKE N,PEEK<N>sNEXT 
120 POKE 1 ,54 

130 POKE 41289 ,6?iPOKE 4 1230,76 iPOKE 
41231 ,?3iPQKE 41232,208 

Le linee 100 e 1 10 ricopiano il BASIC nella memoria RAM. 
La linea 1 20 ci libera dalla ROM e la linea successiva modifica 

11 nome del comando LIST in CLIP, E’ di fondamentale impor- 
tanza aggiungere il valore 128 all'ultimo codice da PGKare 
nell'ultima locazione relativa al comando in oggetto. 

Per Oli nel caso di CUP i codici ASCII da POKare nelle 
locazioni da 4 1 229 a 41232 saranno rispettivamente 67 per C, 
76 per L, 73 per 1 , 208 per P (80+128), Il programma seguente 


è l'esempio di come proteggo il mìo software. Infatti questi 
permette... 

La visualizzazione del comando RUN/STOP - RESTORE 
La variazione del comando PEEK in LEGR 
La variazione del comando LIST In VISL 
La variazione del comando SAVE in TFtOV 
La variazione del comando PRÌNT in STAMP 
La variazione del comando CMD in USC 
La variazione del comando OPEN in APRI 
La variazione del comando CLOSE m CHIUD 
La variazione del comando GOTO in RECT 
La variazione del comando GOSUB in VARIT 
La variazione del comando POKE in MODF 
Ho ritenuto opportuno modificala, anche se non era del tutto 
necessario, anche i comandi GOTO e GOSUB* poiché sareb- 
be stato possibile lanciare ti programma evitando le righe di 
modifica. Dopo aver lanciato il programma è necessario atten- 
dere circa un minuto finché non compare la scritta READY, 
Provate a saggiare l'effetto delle nuove e vecchie tetiuzbm. 
Listando il programma (con il nuovo comando) dopo aver 
lanciato le modifiche almeno una volta, noterete dei cambia- 
menti nel listato. Niente paura. Basta digitare in modo diretto: 
X 808,237 Dove X rappresenta il comando che ha sostituito 
provvisori amento l'istruzione POKE (net mio caso MODE), 
dopo dì Che, premendo RUN/STOP - RESTORE e digitando 
LIST, lo rivedrete scorrere in tutto il suo splendore. Indire è 
consigliabile personalizzare anche l'istruzione RUN per gli 
stessi motivi per cui abbiamo modificalo anche le tstruzion» 
GOTO, GOSUB e quindi avvertire f usufruiste del programma 
dì lanciarlo non più con il solito RUN bensì con la nuova 
istruzione. Oppure aggiungendo in coda al programma I auto- 
RUN. 

(Oro De Pasquale) 

10 FOR N-40960 TO 49 151 
20 POKE N,PEEK (N) 3 NEXT 
30 POKE 1,54 
40 POKE 808 ,25 I 
50 REM * SAVE IN TROV * 

66 POKE 4 1 197 ,83 iPQKE 4 1 138 ,65 : POKE 
41 199,86:P0KE 41200,197 
76 REM t FRI NT# IH STAffP# * 

80 POKE 4 12 14 r 83 : POKE 4 1215, 84: POKE 
41216,65 

90 POKE 41217, 7?:PQKE 4 12 18 ,80 : PQKE 
41219,163 

100 REM * LIST IN VISL * 

110 POKE 4 1229, 86: POKE 4 1230, 73: POKE 
41231 ,83: POKE 41232,204 
120 REM CMD IN USC * 

130 POKE 4 1238 ,85 : POKE 4 1237, 83* POKE 
41238,195 



140 REM * OPEN IN APRI * 

150 POKE 4 1242, 65: POKE 4 1243 ,80 :FGKE 
41844 ,82 : POKE 41245,801 
1S0 REM * CLOSE IN CHIUD * 

170 POKE 4 1246 ,67 : POKE 4 1247,72: POKE 
4 1 248 , 73 : POKE 4 1249 ,35 SPOKE 412 
50,198 

180 REM * PEEK IN LEGR * 

190 POKE 4 1335,76: POKE 4 1336 ,69 : POKE 
41337,71: POKE 41338,210 
200 REM * GOTO IN RECT * 

210 POKE 41 153, 82: POKE 4 1 154 ,69 : POKE 
41155, 6?:PQKE 41156,212 
220 REM * GOSUB IN VAR1T * 

230 POKE 41 163, 86! POKE 4 1 170 ,65 =POKE 
41171,82: POKE 41172, 73=P0KE 411 
73,212 

240 REM * POKE IN MODF * 

£50 POKE 4 12 10, 77: POKE 4 12 ! 1 ,79 : POKE 
41212, 68SPOKE 41213,198 
260 REM INI210 PROGRAMMA VERO E PRO 
PR IO 

$37 

Stop List con SIMON ’S BASIC. Come lutti sappiamo il 
SIMON'S BASIC comprende (tra le altre 1 1 3 istruzioni) l'istru- 
zione PAGE che consente di visualizzare un listato suddivì- 
dendolo In pagine successive (ormate da un numero di righe 
impostato dall 'utente. Talvolta però sarebbe comodo scorrere 
velocemente il listato por poi fermarlo in un punto desiderato. 
Oppure rallentare b scroi I in modo più evidente di quello che 
otteniamo comunemente premendo il tasto CTRL 
Ebbene in ambiente SIMONS BASIC tutto dò è possìbile 
senza alcuna utility aggiuntiva. Carica un programma. Digita 
LIST e mentre le linee “scrollano'' sul video premi SHIFT. 
j^osa è accaduto? Lo semi! è diventalo lentissimo. Viene 
visualizzato un carattere alla volta 0 poco più 
Ma non è finita qui! Prova adesso a ripetere l'operazione, 
mantenendo premuto lo SHIFT (o per non stancare il tuo ditino 
SHIFT LOCK) premi CTRL e, come per magia il listato si 
fermerà e resterà lì immobile a tua disposizione fino a che non 
rilasserai il tasto SHIFT (o SHIFT LOCK). 

(Maurizio Ganjtti) 

$38 

Le frazioni. E' nota Tini possibilità di assegnare alle variabili 
numeriche dei valori frazionari. Un modo ovvio per aggirare 
Tostacelo è il seguente: inseriamo separatamente il numera- 
tore ed ri denominatore, il Computer eseguirà Toperazione. 

Ciò comporta il fatto che siamo costretti ad inserire 1 come 
denominatore ogni volta che il numero non è frazionario, ma 


intero Con La seguente routine è possibile inserire valori interi 
o frazionari. Con i frazionari il computer d dà it corrispondente 
numero decimale. Il numeratore dovrà essere minore di 
10,000. in caso contrario sono facilmente intuibili te righe da 
inserire. 

(Salvatore Di Guida) 

10 INPUT A$ 

20 IF LEN<STR$CVALCA*>>>>LENtA*> TH 
EN PR INTVAL t A$ ) : END 
30 IF VAL C A*>< “9 THEN PR INTVAL tA$>/ 
VAL<RIGHT*(A$,LEN<A$)-2>) = END 
40 IF VAL<A$X=99 THEN PR INTVAL <A$) 
/VAL (R IGHT$( A$ ,LEN< A$) -3 ) ) s END 
50 IF VALCA$K=999 THEN PR INTVAL <A* 
>/VAL <R I GHT* C A* ,LEN C A$ ) -4 > ) : END 
50 IF VACCAI) <*9999 THEN PR INTVAL < A 
$)/VAL <R I6HT$< A$,LEN< A$) -5 ) ) : END 

$39 

Colorì in Assembler (1). Con questa routine gestirete i 
colori del bordo del Commodore 64 In maniera assai più 
veloce rispetto alTequivalonte programma scritto in linguaggio 
BASIC. La maggiore rapidità è da addebitare al fatto che 
V Assembler non necessita della fase di interpretazione tipica 
invece del BASIC. La velocità con cui mutano i cobri sullo 
schermo non è completamente percepibile dal rocchio 
umano. 

(Redazione) 

10 POKE 4036 ,238! POKE 4097, 32: POKE 
4098,208: POKE 4699 ,76 f POKE 4100, 
0SPOKE 4101 , 1S:SYS4096 

$3A 

Colorì in Assembler (2). Questo programma è simile al 
precedente. Unica differenza: viene fatto lampeggiare l'inter- 
no dello schermo del vostro Commodore 64. 

(Redazione) 

10 POKE 4098, £381 POKE 4097,33: POKE 
4098,206: POKE 4039, 76: POKE 4100, 
3JP0KE 4101 , 16:SYS4096 



IL COMMODORE 64 
AL MICROSCOPIO 

di Marco De Rosa 


parte 3* 


(197) tasto corrente premuto 

Questa locazione contiene II codice 
ASCII dell'ultimo tasto premutoe messo 
nei buffer d tastiera (vedi locazioni 198 
e da 63 1 a 640). Quando viene vuotata, 
e nessun tasto è premuto, essa contiene 
il valore 64. Se vengono premuti più tasti 
contemporaneamente il valore memo- 
rizzato sarà quello del carattere con 
priorità più atta Potete vedere in figura t 
I elenco delle priorità. 

(198) NUMERO 
DI CARATTERI 
PRESENTI NEL BUFFER 
DI TASTIERA 

Questa locazione contiene il numera 
di caratteri presenti nel buffer di tastiera 
che si trova da 631 a 640. fi suo valore di 
default è zero, e cambia quando preme- 
te dei tasti e il computer sta eseguendo 
altre operazioni. In questo caso i codici 
ASCII dei tasti premuti vengono imma- 
gazzinati nelle locazioni da 63 1 a 640 e il 
numero di caratteri viene aumentato di 
uno. E F buona regola pulire questa loca- 
zione prima di ogni istruzione di GET 
con un POKE 198,0. 

Un uso frequente di questa locazione 
viene fatto nei programmi di caricamen- 
to. Supponiamo di voler scrivere una 
routine che carichi un programma in lin- 
guaggio macchina a partire da 2048 
($0800) e io faccia partire con una chia- 



mata aJTfr*3rìz20 giusto, diciamo 4096, 
La prima cosa che viene in mente è 
scrivere: 

10LOAD"nome , ',8,1 
20 SYS 4096 

Questo sistema purtroppo non può 
funzionare, perchè non appena viene 
eseguita l'istruzione dì LOAD, Il pro- 
gramma viene cancellato dal He carica- 
to , e la eh (amata all a riga 20 viene persa, 
fi sistema più usato è invece quello di 
scrivere le istruzioni di LOAD e SYS (ed 
altre eventuali) sullo schermo, il quale si 
trova in una zona delta memoria (da 
1024 a 2048) che non viene quasi mai 
usata per i programmi. Si forzano poi nel 
buffer di tastiera i vari RETURN (valore 
ASCII 13) necessari per eseguire que- 
ste istruzioni. Il numero di questi deve 
essere scritto nella locazione 198 
Il programma qui sotto carica, ad 
esempio, il file "nome” e lo fa partire con 
una SYS 4096. 


20 PRINT"[CLR] LOAD" +CHR$(34) ri- 
porne" 

30 PRINT ' [5DQWN] SYS 4096" 

40 POKE 198 h 3;POKE 631,19: 

POKE 632, 13: POKE 633.13 

(199) FLAG CARATTERE 
IN REVERSE MODE 

I due valori assunti da questa locasro- 
ne sono: 

0 per carattere normale 

18 per carattere in reverse mode 
E* più facile e più veloce scrivere PO- 
KE 199,1,0 POKE 199,18 che usare! 
tasti RVS GN e RVS OFF, 

(200-202) CURSORE 
IN OPERAZIONI DI INPUT 

Queste tre locazioni contengono ri- 
spettivamente il numero della colonna 
schermo alla fine, della colonna e delta 
riga all'inizio, di tutte le operazioni di 
INPUT, Purtroppo non è possibile 
POKE-are queste locazioni, perchè non 
hanno nessun effetto sulla posizione del 
cursore sullo schermo. 

(204-207) LOCAZIONI CHE 
INTERESSANO IL CURSORE 

Contengono rispettivamente: 

204 - Lampeggio cursore: (Racceso, 

1 =spento. 


Cotrunodore - 15 




4 



TASTO 

N° 

TASTO j 


TASTO 

N* 

TASTO 

0 

misi 

16 

5 

32 

9 

48 


1 

RET 

17 

R 

33 

1 

49 

* 

2 

t^CRSR 

18 

D 

34 

J 

50 

! 

3 

F 7 

19 

6 | 

35 

0 

51 

CLR 

4 

F 1 

20 

C 

36 

M 

52 


5 ; 

F 3 

21 

F 

37 

K 

53 

= 

6 

F 5 

22 

T 

38 

0 

54 

T 

7 

it crsr 

23 

X 

39 

N 

55 

/ 

a 

3 

24 

7 

40 

+ 

56 

i 

9 

V 

25 

Y 

41 

P 

57 

«- 

IO 

A 

26 

G 

42 

L 

58 


1 1 

4 

27 

8 

43 

- 

59 

2 

12 

Z 

28 

8 

44 

„ 

60 

SPC 

13 

s 

23 

H 

45 

i 

61 


14 

E 

30 

U 

46 

9 

62 

Q 

15 


31 

V 

47 

f 

63 



Figura l 


205 - Conto alfa rovescia per lampeg- 
gio. Il suo valore di default è 2, 

206 - Codice ASCII dd carattere set- 
to il cursóre. Il suo valore di default è 32. 

207 -Ultimo lampeggìo cursore il 
suo valore di delauli è 0, 

Usando queste locazioni in modo op- 
portuno è possìbile costruire un cursore 
lampeggiante durante un'istruzione di 
GET. 

10 PRINT" BATTI UN TASTO 
2CGOSUB 100: GET A$:1F A3=" T ' 
THEN20 

. 30 POKE 207 P 0:PRINT AfrGOTO 15 
100 REM CURSORE 
110 M+ì 

115 IF MIO AND PEEK(2O4M0 THEN 
POKE 204 T 1:M0 

120 IF 1=10 AND PEEK(204M1 THEN 
POKE 204,0:1=0 
130 RETURN 

(213) LUNGHEZZA 
DELLA LINEA FISICA 
DI SCHERMO 

Questa locazione contiene il valore 
della lunghezza della linea fisica sullo 
schermo, li valore di default è 39, ma è 
possibile POKE-are un numero minoro 
ottenendo effetti interessanti. Provate 
ad esempio il seguente programma: 

2 PRINT tl [CLR]" 

5 A$ = K ‘0 1 234567090 1 234567890 
1 2345678901 234567890" 

10 FOR 1=36 IO 20 STEP -1 
20 PRINT AS 
30 NEXTI 

(da 217 a 242) LINK TÀBLE 
PER RIGHE DI SCHERMO 

Come la maggior parte dei computerà, il 
GB M 64 accetta righe BASIC piu lunghe 
dì una riga di schermo. Queste ultime 
possono essere al massimo di 40 carat- 
teri e vengono chiamate “fisiche". le al- 
tre arrivano invece a lunghezza 80 e 
vengono dette 'logiche '. Ogni qualvolta 
voi scrivete una riga logica più lunga di 
40 caratteri, l’elaboratore memorizza in 


queste locazioni il link (collegamento) 
tra le due righe fisiche necessarie, e le 
tratta come se fossero una sola lunga 
riga. 

(da 601 a 630) CANALI 
APERTI PER ROUTINES 
KERNAL 

Queste locazioni contengono tutti i 
parametri relativi all 'utilizzo dei canali 
aperti dalle routìnes KERNAL. Sono sì- 
mili alle locazioni dalla 184 alla 186 r sol- 
tanto che in questo caso vengono con- 
servate le informazioni di tutti ì canali 
aperti e non solo dell ultimo, l o spazio 
necessario è quindi di 30 bytes, consi- 
derando Che il massimo numero di ca- 
nali apri bill contemporaneamente è 10 

(da 631 a 640) BUFFER 
DI TASTIERA 

E’ di tipo FIFO (tirsi in, first cui). Il 
primo carattere ad entrare è anche il 


primo ad uscire. La sua lunghezza è di 
dieci caratteri. Qui vengono, tenuti fino 
all'ulrtizzo i codici ASCII dei tasti premu- 
ti. E' possibile usare questo buffer riem- 
pendolo con delle istruzioni di POKE, e 
aggiornando di conseguenza la locazio- 
ne 198, 

(da 641 a 644) LIMITI FISICI 
PER LA SCRITTURA 
DEI PROGRAMMI 

Queste locazioni puntano rispettiva- 
mente al byte più basso e più atto della 
zona in cui è possibile scrivere 
programmi. 

Questi valori sono automaticamente 
settati dal registro di controllo di I/O (lo- 
cazione 1) durante l'accensione della 
macchina, e possono essere diversi se 
ad esempio avete una cartuccia inserita 
nella porta d'espansione. I valori di de- 
fault sono 2048 O 40960, Non confonde- 
te quindi questi puntatori con quelli con- 
tenuti nelle locazioni dalla 43 alla 56. 


l6CorrvnodOfia 






HEX 

DEC 

DESCRIZIONE 

00C5 

197 

Tasto premuto attualmente. 

00C6 

198 

Numero di caratteri preaentf nel buffer di 
tastiera. 

OOC7 

199 

Interruttore per carattere in Reverse. 

OOC8 

200 

Pointer: fine del file logico per INPUT. 

OOC9-OOCA 

201-202 

Posizione del cursore per l'INPUT. 

oocs 

203 

Flag: Caratteri Sfrittati. Il valore dì defautt é 64. 
Questa locazione mostro il valore del carattere 
nello 197 quando questa viene stampato sulla 
schermo 

oocc 

204 

Flag: Lampeggio cursore. 0=acceso f 
1=spento. 

OOCD 

205 

Timer: conto alla rovescia per il lampeggio 
del cursore. Valore di default 2- 

OOCE 

206 

Codìce ASCII del carattere nascosto dal 
cursore. Valore di default 32. 

OOCF 

207 

Flag: Ultimo lampeggio del cursore Oli o 
OFF. Valore di default 0. 

0000 

208 

Flag: segnalazione della presenza dì INPUT o GET 
da tastiera. Valore di default 0. 

GODI -0002 

209-210 

Pointer: Indirizzo della linea corrente di 
schermo. E' diffìcile da usare. 

0003 

211 

Numero della colonna del cursore nella linea 
corrente. 

0QD4 

212 

Flag: 0= editor normale, qualsiasi oìtro 
valore=editor sotto virgolette. 

OO D5 

213 

lunghezza della linea fisica di schermo. 

0006 

214 

Numero di lineo fisica in cui sitrova il cursore, 1 
valori normali variano da 0 a 24. E’ possibile» ma 
difficile, controllare la posizione verticale del 
cursore POKE^ando valori da 0 a 255. 

00D7 

215 

Arco dati temporanei. 

0008 

216 

Flag; G=edìtor normale, qualsiasi altro 
valore s modó di inserimento. Il valore esatto è tl 
numero di inserimenti da sinistra. 

00D9-00F2 

217-242 

Link table per righe di schermo. 

OOF3-OOF4 

243-244 

Pointer: area calori schermo. 11 valore di defoult 
è 55296. 

00FS-00F6 

245-246 

Vector: Tavola di decodifica della tastiera* 
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DESCRIZIONE 



HEX DEC 


00F7-00F8 

00F9-00FA 

00FB-0GFE 

247-248 

249-250 

251-254 

OGFF 

255 

DIOO-GIOA 

256-266 

OtOO-Ot3E 

256-318 

013F-0IFF 

319-511 

0200-0258 

512-600 

0259-0262 

601-610 

0263-026C 

61 1 -620 

0260-0276 

621-630 

0277-0280 

0281-0282 

631-640 

641-642 

0283-0284 

643-644 


Pointer: buffer di input per RS-232. 

Pointer: buffer di uscita per RS-232. 

Spazio libero. Questi bytes sono utilizzabili dal 
programmatore per indirizzamenti di tipo 
page-zero. 

Area per dati temporanei del BASIC. Ultimo byte 
dello pagina zero. 

Area di lavoro per conversioni da virgola mobile a 
stringa. 

Errore di input da nastro. E' parzialmente coperta 
doll’area precedente. 

Area usata dallo stack e da altre operazioni del 
sistema. Non usatela I MI 

Buffer per INPUT di sistema. Quando rispondete ad 
un INPUT mettete i dati in queste locazioni. Esse 
verranno vuotate appena possibile. 

Tavola KERKAL: numeri dei fììes logici 
attivi. 

Tavola KERKAL: numero del device per ogni 
file. 

Tavola KERNAL: indirizzo secondario per 
ogni file. 

Buffer di tastiera. 

Pointer: Indirizzo del punto più basso della 
memoria del sistema operativo. Valore di 
default 2048. 

Pointer: indirizzo del punto più alto della 
memoria de! sistema operativo. Valore di 
default 40960. 
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RESISTENTI, COMPATTE 
SILENZIOSE, EFFICIENTI, 
AFFIDABILI E COMPETITIVE. 

Stampanti MITSUI con le caratteristiche 
\ {#) tipiche dei giapponesi. 

\v 1-3 TELCOM propone una gamma di stampanti 

' ’J) che s ' distingue per la varietà 
4 L' f delle funzioni e per la grande affidabilità: 

- 80 e 1 32 colonne 

( - 1 20 e 1 80 caratteri al secondo bidirezionale ottimizzata 

- fogli singoli, moduli continui 
\ j V7 A ” vari *'Pi di caratteri 
TsryA Afì ~ stampa espansa, compressa, NLQ, grafica 
j /f J|| s - interfaccia parallela, seriale, buffer fino a 1 28 KB, 

/ L interfaccie speciali. 
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Nella puntata precedente si è spiegato cosa sono ì 
dati numerici, come sono rappresentati e quali sono 
le operazioni che si possono eseguire con loro. 
Accanto a questi però, vi sono altri tipi di dati eie- 
montar!: le Stringhe di Caratteri. 

Questa struttura di dati è molto importante in quan- 
to gran parte delie informazioni che sono trattate nei 
sistemi informatici non sono rappresentate dal tipo 
numerico. Per esempio i dati anagrafici delle perso- 
ne, i codici fiscali o quelli bancari ed altre informa- 
zioni sono rappresentati da parole che possono esse- 
re lette, stampate, confrontate ed ordinate, ma non 
possono essere sommate o moltiplicate. Una "stringa 
di caratteri" è, quindi, una sequenza di simboli lette- 
rali che appartengono all'alfabeto" riconosciuto dal 
computer. Ciascuno di questi simboli viene codifica- 
to (cioè rappresentato) nella memoria di un elabora- 
tore tramite un numero o codice; uno dei codici più 
usati nell ambìto dei mìni e personal computers per 
rappresentare questi caratteri è quello ASCII, 

Ma che cos'è un codice? Esso è una corrisponden- 
za fra due insiemi di simboli in modo tale che per 
definirlo è necessario che siano dati: 

»ì sìmboli che appartengono ai due insiemi 
t le regole per far corrispondere biunivocamente a 
ciascun simbolo di un insieme, uno e uno solo dei 


simboli dell’altro. 

Tutto questo è illustrato nella figura 1. 

I testi composti di soie lettere si potrebbero rap- 
presentare con testi numerici associando, quindi, alle 
lettere dell'alfabeto i numeri interi positivi di due ci- 
fre, a patto però di poter applicare a questo testo 
codificato fasso-ciazione inversa allo scopo dì poter 
riprodurre di nuovi il testo originale. 

Come dicevamo precedentemente, il più diffuso dì 
questi codici è quello ASCII che significa: American 
Standard Code For information Interchange, ovvero 
"standard americano per codifica utile allo scambio 
delle Informazioni", 

Ciascuno dei suoi simboli è rappresentato con una 
sequenza di 7 bit. 

Le due colonne di sinistra comprendono ì caratteri 
dì controllo utilizzati nelle applicazioni della trasmis- 
sione di dati. In realtà, nella memoria di un elaborato- 
re per rappresentare un carattere vengono utilizzati 
quasi sempre 8 bit (1 byte); in ASCII le configurazioni 
in eccedenza sono qualche volta utilizzate per arric- 
chire l’insieme dei segni grafici visualizzati sullo 
schermo come per esempio per la creazione di pro- 
grammi per |a gestione sia di "maschere" che di "te- 
sti". 

Tutto questo viene illustrato nella figura 2. 
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Una sequenza dì caratteri racchiusa tra doppi apici 
è una costante stringa, rappresentazione grafica è 
data dallo schema di figura n. 3. 
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Una strìnga che non contiene alcun carattere si 
chiama appunto "stringa vuotai Una varia pi le strin- 
ga può essere descritta, come già siamo abituati a 
vedere, con la seguente sintassi nelle figure n. 4.1 e 
4.2* 


< defilinone di ariate Unn|* > 


| ftan^g a- aaw> xd-ced-i 


>©{ <Ajcni2 urza KD- 


< Xnjhezza >: dHmucc il mimmo numera di caratteri che la può 

contende 

< definizione di costarne isncigi > 



Fifr 4*1 


Funzione < sonafirixga > 
Sirna$jt: 


Pólfflninrifla^ -^^U ^nonM 


□ 


ZOiQ.O't 

— -£ > H swiyi cx-cd*-* hH , h— * 

s - — ^ | t» a voliQ'/iirtgi 


wn 0 *t*r 4 * 


IKD- 


Fig. 2 
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Anche per le stringhe vi sono delle funzioni intrin- 
seche del BASIC che operano su d i esse. Qui di se- 
guito le riportiamo, utilizzando per brevità di scrittura 
le seguenti convenzioni: 

• X $, Y$, indicano le espressioni stringa 

• l t J rappresentano le espressioni intere 

Tutti i dati che abbiamo visto fino ad ora {numeri 
interi, reali e stringhe di caratteri) possono essere 
organizzati mediante “strutture di dati" che offrono 
notevoli possibilità da un punto di vista deirapplica- 
zione. 

Questa struttura viene definita tramite i suoi com- 
ponenti, la sua organizzazione, le regole e gli opera- 
tori che servono per utilizzarla e gestirla. 

Una delle più importanti fra queste strutture di dati, 
che viene utilizzata in quasi tutti i linguaggi di pro- 
grammazione ad alto livello, è Tarray'', detto anche 
"matrice" o “tabella". 


Esso ha le seguenti proprietà: 

• ogni componente delTarray ha un nome specifico 
ed è accessibile direttamente, 

• Il numero degli elementi viene stabilito al momento 
dell introduzione dell'array e non può essere più 
modificato. 

Tutto questo rende necessario introdurre delle 
convenzioni che servono: 

• per indicare le singole componenti di un array, 

• Per specificare sfa Tarray che il numero delle sue 
componenti. 

L’indicatore della componente di un array è rap- 
presentato dai suo nome e dall’Indice che individua 
in maniera univoca la componente. 

Array a una dimensione 

Un array a una dimensione è rappresentata da una 
corrispondenza tra gli insiemi dei numeri naturali ed 


Commodore - 23 


un insieme A di elementi tutti dello stesso tipo, cioè 
omogenei, nel senso che essi sono o tutti numeri in- 
teri oppure tutte stringhe. In una rappresentazione 
pratica si immagina un array come un insieme finito 
di '‘celle 1 ' contigue, che contengono ciascuna un da- 
to di un certo tipo comune a tutte le celle. Tutto que- 
sto viene illustrato nella figura 6. 
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Fig. e 


Per poter accedere ad un suo elemento è necessa- 
rio specificare il valore di un "indice 11 . L'accesso in 
questo modo risulta essere diretto in quanto per indi- 
viduare l-esimo elemento non è necessario conside- 
rare quelli con indice da 1 a 1-1 oppure da Ut ad N, 

Una volta individuato l’elemento deirarray, questo 
può essere usato come una variabile, questo è il mo- 
tivo per cui gli arrays molto spesso vengono chiamati 
anche "variabili con ìndice". Un metodo molto utiliz- 
zato nella pratica per la ricerca di una componente di 
un array ordinato è la procedura nota col nome di 
"ricerca binaria" che dà un esempio dì accesso non 
diretto ai suoi elementi. 

In questa procedura le componenti delTarray sono 
considerate come i nodi di un albero, in cui da ogni 
nodo si dipartono due rami (albero binario). 

Il procedimento di calcolo di questo algoritmo è 
semplice. Si prende un intervallo dì ricerca e si con- 
fronta la stringa contenuta a metà di detto intervallo 
con quella che si cerca. In questo modo si avrà uno 
dei seguenti tre risultati: 

• la stringa di mezzo coincide con quella cercata e 
quindi l'esecuzione è terminata; 

• la stringa cercata sì trova nella prima metà deH'iri- 
tervalio di ricerca; si eliminerà allora la seconda metà 
di detto intervallo, confrontando quindi la stringa de- 
siderata con quella dì mezzo al sottoìntervallo 
rimasto. 

• La stringa cercata si trova nella seconda metà del- 


rintervallo di ricerca; si elimina la prima metà* * e si 
confronta le stringa desiderata con quella di mezzo al 
sottointervallo rimasto. 

La procedura continua finché non si è trovata la 
stringa desiderata. Questa metodologia di ricerca 
verrà utilizzata nel programma di questa puntata, in 
cui si eseguirà Tordìnamento e la ricerca di un array: 
verrà riportato anche* per meglio comprenderne il 
funzionamento, una rappresentazione grafica dell'al- 
goritmo. 



Si passa ora a rappresentare la sintassi relativa agli 
arrays monod intensione li che è data nella figura n 8. 


< defi nii ione di « UTty > 


< nome di un flemme di un iiray >: 
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Arrays a più dimensioni 

In una struttura dr questo tipo: <nome di dato>: va- 
riabile, array (<ìntero senza segno>) variabile 

di arra y (Cdescrizione di tipo>) in cui ricorre più di 
una volta, esempio N volte, la specifica <array„>si 

parta di array a una, due N dimensioni. La sintassi 

è rappresentata nella figura 9, 



Bisogna specificare che nella pratica gli array a 
una dimensione vengono chiamati “vettori” (variabili 
con indice) a quelli a due dimensioni "matrici 0 (va- 
riabili con due dimesioni che possono essere visti 
come un insieme dì vettori), 

A questi arrays a una o multì-dimensione si può 
associare, per meglio visualizzarli, delle immagini 
che possono essere un rettangolo e un parallelepi- 
pedo, come rappresentato in figura 10. 
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< diclliiriiionc dfll'jirrty > 



< idcnuficuLOEM di un cknvmio di irriy >: 
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Ogni insieme dt indici individua un segmento, un 
quadratino o un cubetto che contiene un valore del- 
t'array. Per meglio spiegare queste immagini illu- 
striamo qui di seguito un esempio. Se consideriamo 
un ufficio in cui vi siano N*M raccoglitori che sono 
disposti per N righe e M colonne; e ciascuno di essi è 
costituito da J*K cassetti che sono disposti su J righe 
e K colonne; ciascun cassetto è suddiviso in scom- 
parti che sono numerati da 1 a l a partire dalla mani- 
glia, Se sì vuole cercare, in quelTuffrcio, una scheda 
bisogna specificare un valore per ciascuno degli in- 
dici N, M, J f K, I per poter accedere alla posizione 
della scheda cercata. 

Trattamento degli arrays a più 
dimensioni 

Il valore di ciascuna espressione è minore o uguale 
del corrispondente (cioè che si trova nella stessa po- 
sizione) intero senza segno nella lista degli indici. Se 


' JCTÌnmi>nr di arra* Jr> ij.lt uh p uc»ni \t > 




Fi* 12 



H<l. 13 

viene usato un valore reale come indice, esso viene 
arrotondato ad un intero. Per concludere si riporta 
a seguito il listato del programma "ordinamento e 
ricerca in un array” e il relativo diagramma di struttu- 
ra in cui si mostra come può essere definito un array 
e come possono essere utilizzati 1 suoi elementi. In- 
fatti questo programma riempie un vettore con 20 
numeri generati casualmente e ohe sono compresi 
fra 1 e 1000 e quindi li ordina in modo ascendente. 
Propone quindi all’utilizzatore di fornire un numero 
fra 1 e 1000, lo acquisisce, cerca nel vettore se è 
presente e quindi segnala l'esito della richiesta. Inol- 
tre, se richiesto, visualizza il contenuto dell'Intero 
vettore. 

Questa ricerca viene eseguita utilizzando il metodo 
di cui abbiamo precedentemente parlato: la ricerca 
binaria o dicotomica. 
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100 REM ♦****♦♦#♦♦♦***##*###***# 


105 REM •ORDINAMENTO E RICERCA * 
110 REM * IH UN fìRRAV * 
115 REM * DI * 
120 REM * MARIANGELA GUARDI ONE * 
125 rem ♦♦♦*#♦*♦##***♦♦♦♦♦****♦# 
130 REM ♦DESCRIZIONE DEI DATI * 
135 REM ♦DATI IN INGRESSO : * 
14S REM *NU=HUMERO CASUALE * 
145 REM *DATI IN USCITA * 
150 REM XfVT= VETTORE DEI NUMERI * 
155 REM * CASUALI * 
160 REM ♦PO 3 INDI CE DEL VETTORE * 
165 REM ♦DATI AUSILIARI ♦ 
170 REM * IN» INDI CE # 
175 REM ♦PD=INBICE # 


180 REM ♦♦♦♦***♦♦♦♦♦♦*♦♦*♦♦♦**♦♦ 
135 REM * ELABORAZIONI DATI * 
130 REM ♦♦♦#♦♦♦♦:♦#♦♦♦***♦♦#*♦♦♦* 
195 DIM VT < 20 > - FR-0 : VE=~ 1 
290 REM *♦♦*♦♦♦♦#♦♦♦♦*♦♦♦#♦♦♦#♦♦ 
205 REM ♦ RIEMPIMENTO ARRAY * 
210 REM *♦♦♦♦****♦*♦*****#*♦*♦*♦ 
215 FOR IN=1 TO 20 
220 VT U N > - 1 NT <1 000#RND <1 008 > + . 5 > 
225 NEXTIM 

230 REM ♦*♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

235 REM ♦ ORDINAMENTO ARRAV * 

240 REM ♦♦******♦♦*♦*♦♦♦♦#*#♦*** 

245 FOR IN=1 TO 19 

250 FOR PD=IN+1 TO 20 

255 IF VT<PD5<VT< IN> THEN 265 

260 GOTO 270 

265 A= VT <1 N > : VT < I N 5 =VT < PD) : VT< PD>= 
R 

270 NEXTPD 
275 NEXTIN 

2S0 REM ♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦:+♦♦*♦*♦* 
235 REM ♦ RICERCA SUGLI ARRAV * 
290 REM ♦♦*♦♦♦♦♦♦♦♦*♦*♦#*#♦**♦♦* 
295 PRINT"CCLEflR]C3 DOWN] " 

300 FRI NT "ORDINAMENTO E RICERCA AR 
RAV" 

3@5 OQSUB 425 

310 REM ♦♦♦♦♦♦♦♦♦*♦♦♦*♦*♦♦♦♦♦♦♦* 
315 REM * INIZIO PROCEDURA ♦ 

320 REM * RICERCA BINARIA * 

325 REM ♦*♦♦♦♦*♦*♦*♦******♦*♦♦#♦ 
330 IF NU»0 THEN 360 
335 GOSUB 490: IF PO>0 THEN PRINT"N 


LIMERÒ " J NU " TROVATO IN POSISI ON 
E"; PO: GOTO 350 

340 PR I NT "NUMERO " ; NU; " NON TROVATO" 
345 GET S$ ■ I F 3$="" THEN 345 
350 GOSUB 425 
355 GOTO 330 

360 REM ♦♦****♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

365 REM * STAMPA ARRAV * 

370 REM ♦*#♦#*♦♦♦♦♦**♦♦♦♦♦♦*♦♦♦♦ 
375 INPUT "DESIDERI LA STAMPA DELL 
'RRRAV<S7N)";S$ 

380 IF S$-"N" THEN 450 
385 FOR IN“1 TO 20 
390 PRINTVTCIN) ; " 

395 NEXTIN:PRINT 

400 GET 5$ : IF S*=“" THEN 400 

405 GOTO 545 

410 REM *♦***♦♦****♦*♦*♦***♦♦♦♦♦ 
415 REM ♦ LETTURA DEL NUMERO ♦ 
420 REM *##*##*♦#♦#*♦♦#♦***###♦* 
425 PRI NT "INDOVINARE UNO DEI 20 NU 
MERI " 

430 PRI NT "COMPRESI FRA 1 E 1000" 
435 PR I NT " < 0 PER TERMINARE)" 

440 INPUT NU 

445 IF NU=0 THEN 465 

450 IF NU>=1 AND NU<=1000 THEN 470 

455 PR I NT " t DOWN ] R I F’ETERE IL NUMERO 

II 

460 INPUT "COMPRESO FRA 1 £ 1000"; 
NU 

465 RETURN 

476 REM ♦♦#♦♦#♦♦♦♦♦*♦*♦*♦♦*♦♦♦♦♦ 
475 REM * PROCEDURA RICERCA ♦ 
480 REM * BINARIA * 

485 REM ♦♦♦♦♦*♦♦*♦♦#♦♦*♦**#♦♦*♦* 
490 TR=0 : PR® 1 : UL=20 : PO=0 
495 IF PR<=UL THEN 505 
500 GOTO 54@ 

505 NM=INT < (PR+ULV2+. 5) 

510 IF NU'VT^NM) THEN 520 
515 GOTO 525 

520 TR=VE : PO=NM : GOTO 540 
525 IF HU<VT<NM> THEN UL-NM-1 :GOTO 
535 

530 PR=NM+ 1 
535 GOTO 495 
540 RETURN 
545 END 
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s.a.s. di Gloriano Rossi e C. 

C.so Porta Nuova 46 - 20121 Milano 
Tel. 02/6599547-6575115 


rivenditore autorizzato 

Commodore 
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Software 


Prodotti 

Accessori 

Assistenza 


Assistenza software per Commodore, Sanyo, NCR, Sirius-Victor e tutti i 
personal compatibili IBM-PC. 

KHMODEM, il demodulatore ideale per la trasmissione e ricezione dei dati 
(Baudot, ASCII, RTTY, CW). 


Rivenditori di zona: 

CREMA: EDP ANSWER di A, Guerci - Via Belletto 1 - Tei, 0373-59140 
BIELLA: H.D.S. Home Data System di Manteilaro - Via Italia 50/a - Tel. 015-28620 



STATISTICA 

t li Mariangela Guardiane 

seconda puntata 


In questa seconda pu ntata conti- 
nuiamo ad esaminare le variabili 
più importanti della Statistica. 
Come si è già visto nel numero 
precdente, le medie servono ad 
individuare, un valore “centrale" 
di un insieme dì dati. Esse, peral- 
tro, non forniscono ulteriori in- 
formazioni su altri aspetti dell'in- 
sieme considerato. 

Per far questo è necessario in- 
trodurre un concetto: "la variabi- 
lità o dispersione’' dei dati, la cui 
importanza non è certamente in- 
feriore a quella del "valore me- 
dio", Quando si parla di "disper- 
sione" s’intende l'attitudine che 
certi dati numerici hanno a di- 
sporsi intorno ad un valore me- 
dio. 

Una distribuzione di dati è carat- 
terizzata da altre due grandezze 
che sono: la Mediana e la Moda 

Mediana 

La Mediana di un insieme di 
numeri ordinati in grandezza è il 
valore centrale oppure la media 
aritmetica di due valori centrati. 
Per esempio: l'insieme dei nume- 
ri 3, 4, 5, 6, 7 t 7, 7. 9 ha mediana 6 
poiché questo numero rappre- 
senta il valore centrale della no- 
stra distribuzione. Ed ancora: 
l'insieme dei numeri 5, 5, 7, 9, 11, 
12, 15. 18 ha mediana (9-rll) 
/2= 10 poiché 9 e 11 sono ì valori 
centrali defla distribuzione. 

Moda 

La Moda di un insieme di nu- 
meri è ri valore che si presenta 
con la più alta frequenza, cioè tl 
valore più comune. La moda può 


non esistere, e in caso contrario 
può non essere unica. Ad esem- 
pio: l'insieme dei numeri 2. 2, 5, 
7, 9. 9 t 9. 10, 10, 11, 12, 18 ha 
moda 9. Ed ancora: l'insieme dei 
numeri 3, 5, 8, 10, 12, 15, 16 non 
ha moda. 

Due distribuzioni, quindi, pos- 
sono avere uguali la media arit- 
metica, la moda, la mediana e 
tuttavia essere molto diverse. Si 
osservi, a questo proposito i due 
diagrammi riportati nella figura 
1 . 

In aritmetica ì casi, come si 
può osservare, la media aritmeti- 
ca, la moda e la mediana sono 
uguali a 10. Se si esaminano pe- 
rò attentamente i due grafici, si 
possono osservare delle profon- 
de differenze tra le due distribu- 
zioni, Infatti i dati sono diversa- 
mente dispersi, in quanto i primi 
sono compresi tra 6 e 14, mentre 
ì secondi tra 2 e 18. A questo 
punto, bisogna puntuali zzare al- 
cuni concetti: i fenomeni col iet- 
tivi sono costituiti da un insieme 
(o meglio da una pluralità) di ca- 
si singoli, che sono chiaramente 
differenti fra di loro; è per questo 
motivo che si considerano i fe- 
nomeni collettivi come variabile; 
la toro attitudine ad assumere di- 
verse modalità qualitative o quan- 
titative si chiama "variabilità'. 
Quindi accanto ai valori medi in 
Statistica si considerano altre 
grandezze il cui utilizzo serve ad 
evidenziare il maggiore o minore 
grado di variabilità del tenorne- 
no. 

Queste grandezze sono note 
come "indici di variabilità ’. Si db 
vidono in: indici assoluti, indici 


relativi. 

Gii indici assoluti sono e- 
spressì utilizzando la stessa uni- 
tà di misura del fenomeno a cui 
sì riferiscono. Gir indici relativi, 
invece, rappresentano i rapporti 
tra grandezze omogenee dì u- 
guale unità di misura e in quanto 
tali, essi sono adimensionali, 
cioè sono dei “numeri puri". 

Gii indici relativi sono utilizzati 
quando sì deve effettuare un 
confronto fra le variabilità di fe- 
nomeni che sono espressi in uni- 
tà dì misure diverse, oppure tra 
più fenomeni di diverso ordine di 
grandezza, espressi nella stessa 
unità dì misura. 

Quando si esamina la variabili- 
tà di un fenomeno bisogna pri- 
ma dì tutto precisare quale aspet- 
to di essa si vuole considerare, 
poiché la "variabilità 11 è un con- 
cetto (e quindi non è misurabile), 
mentre si può valutare qualche 
suo particolare modo di manife- 
starsi. Ciascun indice dì variabili- 
tà, però, misura solo un aspetto 
di essa, e ha quindi una validità 
limitata. Si può quindi verificare 
che la distribuzione indicata con 
A risulti più variabile della distri- 
buzione 0 m base a un mdice, e 
invece meno variabile rispetto ad 
un altro; oppure ancora che, se- 
condo un certo indice, il feno- 
meno A presenti un aumento dei- 
fa variabilià dal tempo 1 al tempo 
2, e abbia invece una diminuzio- 
ne rispetto ad un altro. 

Queste discordanze non de- 
vono stupire: ciascun indice ha 
tutte le proprietà strutturali che 
servono per caratterizzare parti- 
colari aspetti di un fenomeno, 
che in quanto taii possono ditte- 
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rire tra loro. 

in questa puntata, quindi, esami- 
neremo alcuni indici di variabili- 
tà. 

Campo di variazione 

Questo è un indice assoluto, e 
rappresenta la differenza tra il 
valore massimo e quello minimo 
in una distribuzione di dati. Il 
campo di variazione, però, dà 
una misura grossolana della di- 
stribuzione dei dati, poiché non 
considera mìnimamente i dati 
che sono compresi tra il valore 
minimo e massimo. Un esempio: 
H campo di variazione dei numeri 
2, 3, 3, 7, 8, 15, 13 è 15— 2=13, 
Spesso il campo di variazione è 
dato semplicemente indicando il 
più piccolo e il più grande della 
serie dei numeri dati. 

Nel caso precedente fi campo di 
variazione è 2—12. 

Deviazione standard 

Scostamento Medio Assoluto 
dalia Media Aritmetica. Questo 
indice assoluto rappresenta, co- 
me d J altra parte espresso dal 


nome, Ja media aritmetica degli 
scostamenti presi in valore asso- 
luto dalla media aritmetica. 

La sua espressione matemati- 
ca è data dalla sommatoria del 
valore assoluto delie differenze 
tra ciascun dato e la sua media, il 
tutte diviso per il numero dei 
dati. 

Ad esempio: dobbiamo trovare 
lo scostamento medio assoluto 
dei numeri 2, 4, 5, 6, 8, 

Media aritmetàca~X=(2-r4-h5+(> 
+8) /5=5 

Scostamento medio assoluto 
|2-51+|4-51+|5-5|-h|6— 5|+| 
8— 5|/5= 

fi — 3|+| — 1 |+|Q|+|1 f+|+3[ /5= 
3+1+0+1+3)75 = 8/5 = 1.6 

Se si rappresentano questi ri- 
sultati In un sistema di assi car- 
tesiani ortogonali, si pone sul- 
Tasse delle ordinate le modalità 
x, mentre su irascissa ì dati, co- 
me nella figura 2. 

Se sì studia questo diagramma, 
si osserva che lo scostamento 
medio assoluto della media X 
non è che ìa media aritmetica 
della distanze espresse dai seg- 


menti tratteggiati, fra ciascun da- 
to e la loro media aritmetica. 

Scarto quadratico 
medio e varianza 

Lo scarto quadratico medio di 
un insieme di N numeri viene in- 
dicato con s., che rappresenta la 
radice quadrata della media dei 
quadrati degli scarti dalla media 
aritmetica, 

A volte quando sì calcola lo 
scarto quadratico medio dei dati 
di un campione nel denominato- 
re al posto di N viene sostituito 
(N— 1), poiché il valore risultante 
rappresenta una migliore stima 
dello scarto quadratico medio 
della popolazione. Per grandi va- 
lori (almeno N>30) non sussiste 
alcuna differenza tra le due defi- 
nizioni. 

La varianza, invece, di un in- 
sieme di dati è definita come il 
quadrato dello scarto quadratico 
medio ed è indicata con s 2. Per 
concludere si riporta il listato dei 
programma con cui sì può calco- 
lare lo scarto quadratico medio e 
la varianza per una qualsivoglia 
distribuzione di numeri. 
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1 00 REM **** * * *** +: * * * ** ******* *w * * 
105 REM * STIMA STATISTICA * 

110 REM # DI * 

115 REM * MARIANGELA GUARDI ONE * 
ì 20 REM fjnMt ****** ***************** 
125 PRINT" CCLEAR] 12 DONNI [5 RIGHI] 
TEORIA DI STIMA STATISTICA" 

i o<: 1 r em ♦ * * * *• * + * **** * * ** ** * * ** *** * 

135 REM * DIMENSIONAMENTO ARRAVS * 
140 REM # F CICLO LETTURA VALORI * 
145 REM + DI AFFIDAI! IL ITA-' E * 
150 REM * SCARTO RELATIVO *■ 

1 55 REM ************************** 
160 DIM C ' 7 > .•Fi? ) 

165 POR 1 = 1 TO 7 READ C(I)..F(I) NE 
XTI 

170 REM ^■***##*'+*#*!S!*^***ft******S* 
175 REM * ROUTINE INPUT DEI DATI *. 
18® REM *********** *************** 
185 PR I NT " 1 2 DOWN 3 [ 2 RIGATI INTRODU 


CI IL NUMERO DI CAMPIONI" 

130 INPUT " C2 RIGHT] CONSIDERATI" :H 
195 REM t*******#*mm************ 
200 REM * RICHIAMO SUBROUTINE * 
205 REM * IMMISSIONE DATI * 
210 REM ♦*****r#i^**-*^***^***«** 
215 OOSUB 565 

220 REM 3k*^+****#******#*****if*if* 
225 REM * BLOCCO DI CALCOLO E * 
2SS REM * PRESENTAZIONE RISULTATI# 
2 35 REM * * * *. * * i * '* * ** * * * * * * * * 4: ***** 
240 SI ''32*11/ < H-l ' 

245 PR I NT " t DOWN I ST IMA NON DEVIALA 
DEL SIGMA OUftDRO " 

25S PRI NT "VARIANZA DELLA POPOLAZIO 

jjcr — 11 \ \ 

255 S-SQR < S 1 3 S >3 . • , S OR <M> 

260 PRIHT 11 [DOWN? IN T EP VAL! I DI flFP 
DEBILITA'" 

265 FRI NT "PER LA MEDIACD0WN3 “ 
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270 FOR 1*1 T 0 7'FF»P<I>*S3 

275 PRINT "LIVELLO ti t AFFIDASI!: ITA' 

- ";ccn 

290 PRINT "PIU' 0 MENO : **.> FF 
29? FRI NT 1 ’ MASS I M0~ " J »FF 
r-’p I UT ’* M I N 1 HO” " ‘'- r ~ 

295 OET Sf V IF SSf="" THEN 295 
300 MEXTI ‘ 

295 PRINT" I BONN 3 INTERVALLI DI AFFI 
nRB t i_ t TF ' STI MRT I " 

310 FRI NT "PER LA DEVIAZIONE STANDO 
RD. C DOWN 3" 

3 1 5 POI": 1 = 1 IO ?■ J=F < I > +S/3QR < 2*N > 
>0 pp 1 NT" » : r i" n , t j S+J , s-j : NEXT I 
325 PRINT" C DOWN 3SI VUOLE UN CflLCOL 

0 DELL 3 LRROEZZR" 

330 FRI NT "DEL POMPI OHE CHE SI DEVE 
PRENDERE" 

335 PRINT "PER RIDURRE L'ERRORE DI 
0 T t Mft“ 

340 INPUT "Ri! UNA QUANTITÀ' MASSI fi 
A<S7N>“iB$ 

345 IF P$ ;= " N" THEN 500 
350 IF B$0"S" THEN PRINT" C4 UFI" ■ 
rtOTO 325 

355 PRINT"! DOWN 3 INTRODURRE IL LIVE 
LLO DI AFFIDABILI!*' SCELTO"; 
360 PRINT" < FRA LE SCELTE PRECEBEHT 

1 v 

365 FRI NT"! DOWN 3 1 PER SS" 

370 PRINT" 2 PER 60" 

375 PRINT" 3 PER 70" 

380 PRINT" 4 PER 80" 

3S5 PRINT" 5 PER 90" 

390 PRINT" 6 PER 95" 

395 PRINT" 7 PER 99" 

4O0 OET Tf-IF JT=" " THEN 400 
■ 485 J-vMLITf > 

410 INPUT “INTRODURRE IL MASSIMO E 
PRORE DI STIMA DESIDERATO" ;M 
415 PRINT "E ' 1 IH ESAME LA MED I fi < M > 

0 LA " 

428 INPUT "DEVIAZIONE STANDARD <S > " 
;C$ 

425 IF C$®"S" THEN 445 
430 IF CfO"M" THEN PRINT" [2 URI" ■ 
GOTO 415 

435 N3= I NT C < 0 *F( T > /ri > 12 ) + 1 
440 GOTO 458 

4 45 N'3=I NT < < < F < J > *S/M 5 t2 > /£ > + 1 

450 PRINT"! DONNI AL LIVELLO DI AFFI 


D ABILITA' PERCENTUALE »I";C<J> 
“55 PRINT "SAREBBE OPPORTUNO ASSUME 
RE UN CAMPIONE" 

460 PRINT"DI " ; N3 

465 FRI NT" PER ESSERE SICURI CHE LA 
STIMA SULLO" 

478 PRINT "ERRORE RELATIVO ALLA 
475 If CT="S" THEN 490 
480 PRINT"MEBIR" 

4S-5 GOTO 495 

498 PRINT" DEVIASI ONE STANDARD" 

435 PRINT "NON SUPERI" iti 
508 PR IN! " VUO I P I PET ERE CON : " 

505 PRINT" ALTRI 

CALCOLI <1 V 

510 PRINT" LO STE 

SSO 0MPI0NE<2> " 

5 1 5 INPUT " 0 TER 

MINARE C3>"iV 

520 OH VUOTO ICS ,325,560 
525 DATA 50, 0.6744902454373 
530 DATA 60,0.9416214285714 
535 DATA 70,1.0364335334476 
54fl DATA 80. 1.2315515663516 
545 DATA 90, 1 . 6443536821705 
558 DAT A 95,1. 959964 1 02564 1 
555 DATA 99 . 2 . 575327586207 
560 END 

565 REM WWm*MM*****W#M** 
578 REM * SUBROUTINE IMMISIONE * 
575 REM * DATI E CALCOLO * 
530 REM * MEDIA E VARIANZA * 
585 REM ^***-+**^****=t; i («*4:!f*^**j« i f* 
598 M=8 : N 1 “8 - A2=0 
595 PRINT" ! DONNI" FOR 1=1 TO N 
680 PRINT" !2 RIUNII INSERIRE IL DAT 
0" ; I : INPUT “ ■ " :A 

605 H 1 =H 1+1 

£4 fi + ^ 

615 fì2~fl2*fW#f 
62G NEXTI 
625 M=M/N1 

636 V” C f\2 - M I > / < M“ ! > 

(635 X“M : S2=V 

640 PRINT 11 CD0WN3C2 RIGHI IME DI fi* 

645 PRINT" C2 R I GHT 3 VRR I fìNZR= 

w ; v 

650 prt^jt" [2 R I GHT ] BEVI RZ IGNE STPH 
I ! hRD= 11 ;3QR£V> 

655 GEI 3* : IF $£= MI1 THEN 655 
660 PR I NT " [ CLEflP: 3 " ■ RETURN 
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L’AGENDA TELEFONICA 
AUTOMATICA 

di Ernesto Sidoti 



Sui numero 3 di questa rivista ho 
presentato una scheda elettronica 
capace dì pilotare 8 relè. Questo 
mese vi propongo un'altra interes* 
sante applicazione della porta uten- 
te: un combinatore telefonico. 

Tengo a precisare che questo tipo di 
realizzazione deve essere intesa so- 
lamente dal punto di vista sperimen- 
tale in quanto, se si legge il regola- 
mento Q (P t risulta vietato qualsivo- 
glia manipolazione della rete telefo- 
nica. 

La parte elettronica da applicare 
esternamente non è altro che 1/8 
della scheda presentata tempo fa. 
Questa volta l'uscita utilizzata è una 
sola: la PB7; l'alimentazione — dato 
l'esiguo assorbimento del circuito — 
è presa dallo stesso computer. Il 
software accoppiato è una versatile 
agenda telefonica capace di archi- 


viare, ricercare e modificare non so- 
lo nome, cognome e numero di tele- 
fonico, ma anche il completo indiriz- 
zo e una riga di commenta. Con 
questa agenda si potranno memo- 
rizzare i 198 numeri più usali della 
agenda. Quando si vorrà telefonare 
basterà ricercare il nominativo, alza- 
re il microtelefono e aspettare che il 
computer componga il numero tele- 
fonico. Se la linea risultasse occupa- 
ta. niente paura! Basta premere un 
qualsiasi tasto del G64 per ripetere il 
numero. 

Per meglio capire come può funzio- 
nare un combinatore telefonico com- 
puterizzato occorre far riferimento al 
suo diretta progenitore: il combina- 
tore meccanico. Per intenderci, il di- 
sco trasparente con in numeri. Quan- 
do si compone una cifra, sul telefo- 
no si interrompe {sì apre cioè} il cir- 


cuito, per un numero di volte pari 
alla cifra composta, eccetto per lo O 
che genera 10 interruzioni. Queste 
interruzioni fanno commutare la li- 
nea su quella deliziente desiderato. 
Le Interruzioni devono avere un 
tempo ben precìso, così come le 
pause tra un interruzioneeTaltra e le 
pause tra un numero ed un altro. 

I tempi da rispettare sono: 40 mS per 
l'interruzione, 60 m$ per la pausa tra 
un'Interruzione e l'altra, 5Ò0mS in- 
vece la pausa tra un numero e l'altro. 
Guest J ultima è chiamata pausa in- 
terdigitale 

Faccio un esempio (osservate la fi- 
gura n. 1). Se la prima cifra da conm 
porre è un 2, il combinatore telefoni- 
co interromperà la linea per 40 m$, 
poi la ripristinarà per altri 60 e nuo- 
vamente la interromperà per 40. in- 
fine la ripristinerà per 500 mS prima 


34-Comtnodore 


da comporre la cifra successiva. 

Un combinatore computerizzato do- 
vrà rispettare taN modalità. Il modo 
di realizzarlo è molto semplice, È 
sufficiente un relè, che non è altro 
che un interuttore comandato elet- 
tricamente. che collegato opportu- 
namente alla linea telefonica inter- 
rompe fa continuità della linea stes- 
sa rispettando i tempi sopra citati. 
Tengo nuovamente a ricordare che 
questo circuito è presentato solo a 
scopo didattico io quanto qualsiasi 
manomissione della linea telefonica 
è vietata, (uomo avvisato mezzo sai- 
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La scheda è formata da un semplice 
transistor che fa da servo/in ter rutto re 
elettronico per il relè. La base di 
questo transistor è collegata tramite 
una resistenza alia pista della porta 
utente contraddistinta con la lettera 
L. Ogni qualvolta su questa pista si 
presenterà una tensione alta si ecci- 
terà il relè collegato alla linea telefo- 
nica generando una interruzioni su 
di essa. 

Per installare la scheda occorre in- 
terrompere uno dei due fili che van- 
no alla presa telefonica e quindi è 
necessario collegarlo a un terminale 
normalmente chiuso del relè e un 
secondo filo tra l'altro terminale del 
relè e il punto da dove hai scollegato 
la linea (per ogni difficoltà di ap- 
prendimento osservate la figura 2). 

Il costo di tutta la scheda d iffi ci t men- 
te supererà te 12000 lire e fallace la- 
mento non più dì 500 lire. 

Il software 

Il programma ò estremamente sem- 
plice da usare grazie alla presenza di 
numerose indicazioni por i comandi 
disponibili. Il completo controllo de- 
gli input limita le possibilità di erro- 
re da parte dell'utente, £ importante 
ricordare che prima di spegnere il 
computer occorre, se ci sono state 
modifiche, aggiornare H file Altra 
raccomandazione è di scrivere sem- 
pre il recapito telefonico preceduto 
dal prefisso e da una barra trasversa- 
le (esempio 02/3245689). 

Se non si conosce il prefisso può es- 
sere utile inserire degli zeri in attesa 
dì sostituirli con il prefisso esatto, 
(esempio 00/3245698). Il programma 
funziona eia con il registratore che 
con l'unità disco, proprio per favori- 
re una più larga fascia di lettori. 

Lìnea 110, Con POKE 650, 128 abili- 
to il repeat su tutti I tasti, con POKE 


58579. 128 setto in output la porta 
PB7 e porto a off la porta con POKE 
56577,0, 

Linea 1120. Con POKE 54296. 15 de* 
finisco il volume della nota generata 
se si verifica una condizione di erro- 
re. 

Linea 4800. Eseguo la routine di mi- 
zializzazione generando un riquadro 
con la routine alla riga 1870, 

Linea 4810. Eseguo una routine di 
posizionamento de! cursore alla li- 
nea 7, 

Lìnea 4820-4860. Scelta disco o cas- 
setta. 

Linea 4870. Se i tasti premuti sono 
diversi da N o S, va in esecuzione la 
routine sound e che genera la nota 
di errore. 

Linea 4880-4990. Scelgo se creare 
un nuovo archivio o leggere da peri- 
ferica i vecchi dati. Se si sceglie dì 
leggere il vecchio archivio digitando 
N si manda in esecuzione una delle 
due routine di lettura, una riguarda ri 
registratore l'altra il disco. Terminata 
la routine dì inizializzazronesi visua- 
lizza i menù. 

Linea 1200-1500, Stampa menù prin- 
cipale e attende il comando da ese- 
guire. 

Linea 2650. Se nel menù si sceglie 
l'opzione “memorizzare' 1 si avvia la 
routine che archivia un nuovo uten- 
te. 

Linea 5570-5650. Per prima cosa si 
dovrà trovare il posto libero su If ‘ar- 
ray. Se è la prima memorizzazione 
Ovviamente la PO, che è la variabile 
dove viene memorizzato il posto li- 
bero, sarà 1 . Se invece c’é già stata 
qualche cancellazione la PO risulte- 
rà eguale al posto che occupava 
prima l'utente cancellato. L'algorit- 
mo riconosce che il posto è vuoto se 
trova un asterisco nel terzo campo 
dei record. Se non vi sono asterischi 
vuol dire che il posto deve essere in 
fondo alf'array e quindi PO sarà 
eguale ai primo record trovato vuo- 
to. Se durante questa ricerca si su- 
pera il numero massimo dei record 
vuol dire che non esistono più spazi 
vuoti in memoria, viene quindi stam- 
pata la scritta AGENDA PIENA e si 
torna al menù. 

Linea 2660-2740. Quando invece si 
trova un valore di PO si avvia il pro- 
cesso di input dei dati riguardante 
l'utente. Sarà visualizzata una ma- 
schera e avviate le routine di input 
per ciascun campo del record. 

Linee 2750-2940. Appena finiti gli 
input l'algoritmo domanda se i dati 
appena acquisiti sono corretti, ri- 
spondendo no, dìgitanto RETURN; 


verrà visualizzata sulla parte inferio- 
re dello schermo un pìccolo menù 
indicante i diversi campi da correg- 
gere. digitando una delle opzioni in- 
dicale si potrà correggere *1 campo 
errato. Ancora una volta l'algoritmo 
chiede se i campi sono esatti e se si 
digita la barra (SPACE) $« avvia l'al- 
goritmo Che sistema in ordine alfa- 
betico l'utente entrato. 

Linee 3000*3130 Per evitare che du- 
rante la fase di ordinamento si fa- 
cessero scambi di interi record, con 
ia conseguente notevole perdita di 
tempo, l'ordinamento é fatto su un 
vettore indice. Ogni elemento del 
vettore indice (X (ì)} contiene la rea- 
le posizione di un elemento deii ar- 
ray Se ad esempio sono stati memo- 
rizzati dieci nominativi nellarray, 
questi si troveranno nell'ordine con 
ii quale sono stati immessi, ma con 
questo non è detto che siano alfabe- 
ticamente a posto 

Per i nostri usi è importante disporre 
di una lista ordinata per facilitare la 
ricerca L ordine alfabetico quindi è 
memorizzato su dì un vettore, che 
avrà come primo elemento il numero 
del record con minor peso, nel de- 
cimo elemento quello con maggior 
peso e infine nei restanti elementi 0. 
Quindi per vedere il nome con minor 
peso non si dovrà visualizzare if pri- 
moelemento dell'array, ma bensì l'e- 
lemento NO*(X (1).1) 

Dopo questo piccolo esempio tor- 
niamo all'algoritmo di rinnovo pun- 
tatori. All'ingresso dell'algoritmo tro- 
viamo un IF che testa se la prima po- 
sizione del vettore indice è libera, se 
così è allora vuol dire che ci trovia- 
mo nel caso di array vuoto quindi il 
nominativo in ingresso dovrà per 
forza avere indice 1 e posto di array 
1. Se la condizione appena citata è 
talsa allora si memorizza l'intero re- 
cord nella posizione PO preceden- 
temente determinata, in seguito si 
avvia un ciclo che va dal primo ele- 
mento dei l'arra y fino all'ultimo uti- 
lizzato (CL). All'Interno di questo ci- 
clo si testa l'esistenza di un nomina- 
tivo di peso maggiore dell'ultimo en- 
trato, Se c'è, allora si avvia un 
secondo ciclo che porta tutti i punta- 
tori una posizione più in basso e in- 
serisce nella posizione dove si tro- 
vava il puntatore al nominativo mag- 
giore dell'ultimo entralo. il puntatore 
dell'ultimo nominativo. 

Se invece non esistesse alcun nomi- 
nativo con peso maggiore dell'ulti- 
mo entrato abbiamo tre possibilità. 
La prima è soddisfatta se è libera 
nell’array la posizione 1. in questo 
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caso U puntatore assumerà valore 1 
La seconda scelta e soddisfatta se 
l'ultimo nominativo entrato ha peso 
maggiore di tutti quelli presenti nef- 
larray, In questo caso i\ puntatore 
avra valore eguale aCLM. La terra 
scelta è soddisfatta se l'ultimo posto 
libero e proprio r ultimo possibile, 
ossia MA e quindi il puntatore avrà 
valore GL. Eseguita questa routine si 
torna al menù principale. 

L'altra scelta possibile da menù ri- 
guarda la ricerca che si articola In 
tre fasi distinte La prima cerca 
realmente tl nominativo, la seconda 
visualizza l'intera sequenza dei caro 
pi riguardanti l'utente cercato e da la 
possibilità di modificarne ì contenuti 
o cancellare l'utente completamen- 
te, la terza compone automatica- 
mente il numero telefonico. 

Linee 3810-3950 Scegliendo da me- 
nù <F3> si entra nell'opzione ricer- 
ca. Come prima operazione l'algo- 
ritmo chiede con quaie lettera co- 
mincia il cognome ricercato Se il ta- 
sto digitato è una lettera dell'alfabeto 
si avvia la ricerca. La ricerca è sud- 
divisa a gruppi di undici nominativi. 
Se la lettera cercata esiste nelTarray 
si esce dal ciclo e si passa alla parte 
visualizzazione della ricerca Se la 
lettera cercata non esiste, si stampa 
un messaggio di lettera assente 
Linee 4010-4160. Appena trovato il 
gruppo di undici nominativi fra cui si 
trovano anche i nominativi iniziami 
con la lettera richiesta, si visualizza- 
no con la routine presente tra le li- 
nee 4700 a la 4760, gli undici nomi- 
nativi appena trovali, 

Alla linea 4030, l'algoritmo attende il 
comando d* posizionamento curso- 
re. Se il tasto premuto è 4- il valore 
del cursore aumenta, se invece sì 
preme — questo valore decresce. 
L'aumentare o decrescere del valore 
del cursore permette alla freccetta 
presente sullo schermo di scendere 

0 salire, in tal modo si può far punta- 
re la freccetta sul cognome deside- 
rato. Se il movimento del cursore 
supera gli undici nominativi presenti 
nello schermo, verranno visualizzali 

1 precedenti o postecedenti undici 
utenti, 

Linee 3310-3500 Premendo il tasto 
RETURN sì passa alia fase dì visua- 
lizzazione di tutti i campi In questa 
fase Oltre a vedere tutti i campi del 
record, sono offerte 4 possibilità. La 
prima, fa piu semplice, ritorna alla 
fase precedente ossia la visualizza- 
zione degli undici nominativi, la se- 
conda permette di telefonare all'u- 
tente appena prescelto, la terza di 
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modificare ì campi, infine [a quarta 
cancella il nominativo dell'array. 
Linee 5030-5420 Occupiamoci ora 
della parte che permette di telefona- 
re. La prima mossa dell'algoritmo e 
quella di testare se realmente a fian- 
co la voce TEL esista realmente un 
valore eseguibile. Se la condizione 
di eseguibilità non esiste allora si re- 
sta nella fase della visualizzazione 
utente. Se il numero è eseguibile 
l'algoritmo separa in due variabili di- 
stinte il prefisso ed il numero telefo- 
nico. Solo a questo punto chiede se 
si deve eseguire anche il prefisso e 
in caso affermativo memorizza in un 
unica variabile sia numero telefonico 
che prefisso. 

Fatte queste operazioni l'algoritmo 
attende che venga premuto un tasto 
per avviare l'esecuzione del numero 
Il numero telefonico memorizzato in 
D3 r dalla lìnea 5320 alla 5350, viene 
suddiviso in singole cifre e memo- 
rizzate nella variabile Al Dalla linea 
52B0 alla 53? 0 vengono generati le 
interruzioni pari al valore posto in 
Al Nell integrato 6526 (complex in- 
terface adapter) esistono due timer 
chiamati rispettivamente AeB. 
Questi timer opportunamente prò 
grammati generano delle temporiz- 
zazioni ben precise atte a pilotare le 
porte di output o di contare impulsi 
provenienti dall'esterno. I registri 
che controllano le operazioni dell'in- 
tegrato sono allocati nella locazione 
di memoria 56590 per il registro A 


mentre per il registro B la locazione 
interessata è la 56591. Controllando 
i bit di questi registri si possono con- 
trollare tutte le funzioni generate dal 
6526. 

Per generare le interruzioni si carica 
nel byte basso e in quello aito del 
timer B un valore da decremelare 
ogni ciclo macchina. In seguito av- 
vio un ciclo pan al numero di inter- 
ruzioni da generare, setto il registro 
di controllo B in modo da impostare 
un segnale in uscita sulla porta PB7, 
carico il byte alto del registro con 
cui il medesimo valore caricato sul 
registro B. così facendo decremento 
di una unità ogni ciclo macchina il 
valore del timer B Quando il valore 
del timer B corrisponde allo zero, 
cambio il valore della tensione alla 
porta RB7 e dìseccito il relè collega- 
to ad essa Genero ancora un altro 
ritardo di 60 mS con un ciclo di FQR 
ed eseguo nuovamente fa routine di 
interruzione Appena finita la cifra si 
genera un altro ritardo con un ciclo 
di FOR di 500 mS e si passa all'ese- 
cuzione della cifra successiva. 

Se dopo aver eseguito il numero te 
lefonico la linea risultasse occupata, 
allora il processo appena descritto 
può essere nuovamente ripetuto. 

Se invece non si vuol più telefonare 
al corrispondente del numero pre- 
scelto si torna alla visualizzazione 
del l'utente precedentemente selezio- 
nato. 

Linee 3540-3750 Se Invece di tele- 


fonare si vuole modificare qualche 
campo del l'utente prescelto è ne- 
cessario premere il tasto M che serve 
proprio per avviare la routine di mo- 
difica. La prima operazione di questa 
routine è quella di copiare sul vetto- 
re PS (x) rimerò record desiderato. 
Poi l'algoritmo chiede quale elemen- 
to si vuole modificare e attende il 
comando A tal punto si possono 
modificare tutti gli elementi del vet- 
tore con le procedure solite di input 
che abbiamo già descritto in prece- 
danza 

Linee 4210-4260 Tornati aita visua- 
lizzazione utente rimane da analiz- 
zare l'ultima possibilità, ovvero la 
cancellazione totale del nominativo 
dell'array. Questa opzione si avvia 
digitando il tasto C. La digitazione di 
questo tasto causa l'assegnazione di 
un asterisco nel terzo campo del re- 
cord da cancellare e lo spostamento, 
in alto di un posto, di tutti i puntatori 
ai record a partire dal successivo 
puntatore del record che si vuole 
cancellare 

Descritte tutte le opzioni della se- 
zione ricerca non resta che accen- 
nare all'ultima opzione dei menù 
principale, la FINE LAVORO Questa 
opzione si occupa semplicemente di 
aggiornare il file dati se vi sono state 
modifiche. 

Ultima raccomandazione, evitate di 
inserire il connettore a computer ac 
ceso. Potrebbero verificarsi spiace- 
voli sorprese. 


1 @00 
1010 
1026 
1030 
1040 
1050 
1060 
1078 
1080 
1030 
1100 
1110 


1120 

1138 


1140 


REM 


REM 

* 

* 

REM 

w 

RUBRICA TELEFONI CR * 

REM 

* 

* 

REM 

* 

fìUTGMRTICfl * 

REM 

* 

$ 

REM 

* 

DI * 

REM 

* 

£ 

REM 

* 

ERNESTO 31 DOTI * 

REM 

* 

* 

REM 

3|fi»sE**##*#*************S** 


PR I NT " C CLEFIR ] [ B I ANCO 3 " 41R= 1 9S ■ 
POKE 650 ,128: pqkE 56573 ,120: PO 
KE 56577,0 

POKE 54236, 15- PuKE 53230,0 ^POK 
E 53281,0 

rari no* < mr+ i , ■ d i m p* < e > : n i ri 

X < MR+ 1 > ■ GOSSJB 4300 
0$='. 
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MASCHERA 


ii3y rem 

1 160 REM $ :4 

1170 REM * MENU' £ 

ì 1 80 REM $ * 

1 ly@ REM 

1200 PR1HT M CCLEnRI Jl : ZZ-0 ; FL : =ÈnHH=8 : 

H-0 : GOSUB 1840 
1 2 1 0 REM F R I N TFRE < 6 > 

1220 PRINT TRB<6> M LD0WHJflGEHm TELE 
FONI OR AUTOMATICA" 

1230 FRI NT THBt9>"COOWN3DI ERNESTO 

sino ri <cy 

1 240 PR I NT 11 [ BONN ] h — — — 


1 z6y 
127S 

12S0 

1290 

1300 

1310 

1320 

1330 

1340 

1350 
1 ^-40 


— I 'I 

PR I NT ThB C 2 ) 31 F5> MEMOR I ZZARE " 
PRINT TflBCa^'CDQWNr 1 
PRINT TRB ( 2 > " C BONN 3 F3> RICERCA 
RE” 

PRINT TRBC2) 13 lBONNj " 


ì [B0wN]F3> FINE L fi 


PRINT TRBC2; 

VORO ,! 

PR I NT " t B ONN 3 r — 

— H » 

PR I NT [ HOME 3 l 7 BONN ] " : fl-20 

PRINT TRB C R ) ì! / — 

PRIMI TABCR) 11 ! P J 

PRINT TASCA)" *“[RVS3 CRVOf 

FI CRVS3 lRVOFF 3* v — 

PRINT TASCA) 5t / \ rt 


PRINT TASCA) tf 
[RVOFFj ! i! 
1370 PRINT TASCA; 1 11 

[RVOFFJ r 
1330 PRIMI TASCA) ” 
[RVOFFj [ " 
1330 PRINT TASCA) " 
[RVOFF] ! " 
1400 PRINT TASCA) " 
1410 PRINT TASCA) ” 


I [RVS] 733 
1 C RVS ] 4 5 6 
! [RVSJ 1 2 3 
I [RVS 3 fc @ # 
S r’ 1 " * 


1420 

1 42 1 

h >• -.ri 
X "tOW 

14oi 
1440 
1458 
1 468 
1478 


REM ili#*#**#*#*##*#####**#*##* 
REM * $ 
REM * SCELTA DI MENU'' * 
REM * * 
REM #*#***#****#*#**#**##***# 


GET SCì-IF 30$="" THEN 1468 
IF 5C$~CHR$< 134> THEN 3318 
1438 IF SC$=CHR$<1355 THEN GOSUB 26 
3@ 1 GOTO 1288 

1438 IF SC*»CHR$(148> THEN GOSUB 54 

68 

1588 GOSUB 2538 : GOTO 1468 

1518 REM ##**###**###*###########* 


1526 REM * ■ * 

1338 REM * . MASCHERA * 

1548 REM * * 

1358 REM ************************* 
1 568 PR I NT “ tCLEAR 3 " : 2=2 : GOSUB 1348 
1378 GOSUB 1758 

1 538 P R I NT " [ HOME 3 [ DOWN ] L 4 R I GHT 3 fiOE 
NBA TELEFON I Cfi AUTOMA! I CA < C > 

1 538 FRI NT Thh ( 2 > " E DOWN 3 1 RVS ] NOME " 
1600 PRINT TRB 2 > " L DOWN 3 [ RVS ] COGNGM 

r 1 H 

1 61 8 PR I NT TRB < Z > ” £ BONN ,1 1 RVS 3 INDIR! 
220” 

1623 PRINT TRB C 2 ) " C DOWN 3 C RVS 3 COMUNE 
DI" 

1638 PRINT TSB<2> M ED0WN3 ERVS3TELEF0 

NO" 

1648 PRINT TRB <2)” CDOUNI E RVS 3C.fi. P. 

il 

1658 PRINT TRE <Z > " £ DOWN 3 C RVS 3 NOTE [ R 
V0FF3 ” 

1668 PRINT" l DOWN 3 V — 

4 " : RETURN 

1678 REM .1»:*** PULITURA MASCHERA ** 
*#* 

1638 PRINT TfiB < Z ) " E HOME 3 [ 3 DOWN K 6 

RIGHI! " 

1 638 PRINT T HB ’■ 2 ■’ " t DOWN ] E 7 RI GH f j . 

Il 

1700 PRINT TRBCZ)" £B0WHK3 RIGHI] . 
1710 PRINT - T ABC Z>" [DGWNK9* RÌjGHT 1 * 

1 72S FRI NT ’ T AB < 2 ) " l hù 3 [3* RIGHI] . 

i 730 frinì" tab < z)' ! i him ile rì gkt j . 

1740 PRIMI ThB< Z ) !! [ BONN j [ 4 RIGHI] , 

H 

1758 PRINT" CDOWN 3 I — 

4 " ; RETURN 

1768 REM **#**#*##***###*#*****#** 
1761 REM * ' # 

1778 REM * PULIZIA FINESTRA * 
1771 REM * * 

1736 REM ili#####*#****###*###**#*#* 
1738 PRINT" [HOME] [13 DOWN] [2 RI GHT 3 

11 

1S80 PRINT" [2 RIGHI] 
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1810 PRINT" C2 RIGHT3 

ft 

1820 PRINT 1 ' E2 RIGHI] 

ii 

1830 PRINT" 12 RIGHT3 

" ^ RETURN 

1848 REM ************************* 
1341 REM * * 

1858 REM * RIQUADRO * 

ISSI REM * ' * 

1860 REM ************************* 
1370 POR 1=55236 TO 55335 -POKE I, 1 ’ 
POKE 1 +360 , 1 ■ NEXT : FOR 1=55336 
TO 56216 STEP 48 : POKE 1,1 
1388 POKE 1+33, i 'NEXT 
1330 POKE 1024, 85 FOR 1=1825 TO 106 
£ ■ POKE 1,6? NEXT: POKE 1063,73: 
FOR 1*1183 TO 1383 STEP 48 
1388 POKE 1, 66 : NEXT: POKE 2023,73 = F0 
P 1=2822 TO 1985 STEP -1=P0KE 
I,67f NEXT: POKE 1334,74 
1318 FOR 1=1344 TO 1064 STEP -40 : PO 
KE 1,66 NEXT 'RETURN 

1320 REM #*###*##########*#*####»# 

1321 REM * * 

1330 REM * INPUT * 

1331 REM * * 

1348 REM ************************* 
1 350 XX=7 : VX=4 : LX=15 T*/>0 : GQ5UE 215 

O : GOSUB 2838 
1363 RETURN 

1970 y,‘i— 1 0 : VX=6 ■ LX=20 : TX=8 uOsUB £ 1 
58 : QOSUB 2830 
1338 RETURN 

1398 XX» 12 : VX=S : LX=26 ■ TX=8 : GOSUB 21 
50 : GOSUB 2838 
200O RETURN 

28 1 8 XX= 1 2 ■ VX» 1 0 LX=26 : TX=0 • GOSUB £ 
150: GOSUB 2090 
£028 RETURN 

2838 XX= 1 1 : VX» 1 2 : LX=24 : TX=0 : GOSUB 2 
15@: GOSUB 2030 
2840 RETURN 

£850 XX=9:VX»14.LX=5 TX=0 • GOSUB 215 
8 : GOSUB 2030' 

2068 RETURN 

2078 XX=7 VX* 1 6 : LX=3 1 : TX=8 : GOSUB 2 1 
50: GOSUB 2038 
2888 RETURN 

2030 IF LEFT*CX$, 1 >*” " THEN Ni=" 


2111 REM * * 

2120 REM * INPUT CONTROLLATO * 

2130 REM * VAR.=XX,VX,LX,TX,X$ * 

2131 REM * * 

2148 rem ************************* 

2150 PRINT" [HOME] FOR AA=1 TO VX- 
1 : PRINT " C DONNI * , : NEXT : I X=0 : F 
VX® 1 THEN PRINT" CUPI"; 

216S FOR RR=1 TO XX ' PRINT" [RIGHT] ", 
NEXT: FOR Afl»l TO LX : PRINT" 

: NEXT: FOR ftfl=2 JQ |_ X 
£178 F'RINT" LLEFT 1 " : NEXT : I F TX* 1 TH 
EN Cf*LEFT#<X#, 1> : IF C**"" OR 
VflL<Cf>08 THEN C*« * +" 

2138 IF TX*1 THEN X*=C*+RTOHT$<;STRÌ 
( VAL < X$ ) > , LEN < 8TR* C VAL < X$ > ? > - 1 
> : IX=1 

2139 IF TX* 1 THEN PRINT" CLEFTJ " , 
2208 PRINTX*i:lF TX=1 THEN PRINT" IR 

IGHT]" J 

2218 FOR AA*1 TO LEH<X$.' ■ PRINT" lLEF 
Tipi ; NEXT 

2223 GET C$ : IF 0*0" " AND FL=0 THEN 
2238 

2233 IF Ci*" [HOME] " THEN 2120 
2248 K.X=PEEK < 1 824+ < VX - i > «48+XX+ 1 X > 
2258 IF KX>0 AND KXC127 THEN POKE i 
024+ < VX- 1 > 440+XX+ 1 X , KX+ 1 28 : FL= 

1 

2268 IF KXM27 AND KXG255 THEN POKE 
1 024+ < VX- 1 > *40 +XX+ 1 X , KX- 1 23 : F 
L=@ 

2270 IF C$=" " THEN 2220 
£230 IF CtO"" AND FL»1 THEN 2260 
2238 IF 03= "[HOME 3" THEN 2120 
2308 CX*fiSC<C3) : IF CX= 145 THEN GOSU 
£ 2568 GOTO 2228 
2310 IF CX= 13 THEN 2450 
2320 IF TX=1 AND IX*0 THEN IF CX=43 
OR CX= 45 THEN 2350 
2330 IF TX= 1 RNB (CX=25 OR CX*157> 
THEN 2350 

2340 IF TX- 1 AND ( CXC40 OR CX>57> 7 
HEN GOSUB 2560 : GOTO 2228 
2356 IF CX=1? THEN GOSUB 2560 : GOTO 

236.0 1F*~CX= 1 57 AND 1X08 THEN GOSUB 
2d&0 ■ GOTO 2220 

2378 IF CX» 157 AND IX>3 THEN 1X=IX- 


!100 RETURN 

■ n 0 * REM ***** *********** ********* 


1 : PRINT" ILEFT3' 1 , GOTO 21 
2338 IF CX=29 AND IX>=LX-1 THEN GOS 
UB 2560 : GOTO 2220 

2336 IF CX=23 AND IX7LX THEN TX= XX* 


Commodore -39 


1 = PR I NT" L RI GHT V'i- GOTO 2220 
2400 IF T/i=l AND IKOl AND <CX=43 0 
R CM=45> THEN 2436 
2410 IF T/i=l AND <CX<48 OHE C'05?) 

THEN G03UE 2360 : GOTO 2220 
242S IF 0X<32 OR CZ>93 THEH G03UB 2 
560= GOTO 2229 

2430 IF IJi>LM-l THEN GOSUB 2560 : GGT 
0 2220 

2440 I :.= I '/.+ i ■ PR I NT C$ ; ■■ GOTO 2220 
2450 Xi="" - IF TX=1 THEN FOR AA=0 TO 
Vi- 1 ■ C=FEEK < 1 024+ C VK- 1 >#40+XK 
+AR> : Xi^Xi+CHRitCI 1 
2460 IF T:;=l THEN NEXT ' GOTO 2510 
.2470 REM 

24S0 FOR Flfi-0 TO LK-1 = OPEEK<Ì824+< 
VJi- 1 > if 40+X‘I+Hfì > 

2490 IF 027 THEN C=C-64 
2500 >;*=X$+eHR* <0+645 : NEXT 
2510 FOR CB=L2 TO 1 STEP -1 
2520 IF MID*<XÌ,CB, 1)0" " THEN 254 
0 

2536 NEXT : RETURN 

2540 FOR CC=CB TO I STEP -1 =VÌ=MIDi 
<XÌ,CC, 1 )+VÌ : NEXT : X$*=Vi ■ Vi= " " 
2550 RETURN 

2560 REM *#*****#**#*#***#**!(!#**#* 

2561 REM * . * 

2570 REM * SOUND * 

2571 REM # * 

2530 REM **$#*#*#####**!*; ********** 
2590 POKE 34277, 8 ■ POKE 54273, 17= POK 

E 54273, 39 : POKE 54272, 15 : POKE 
54274,0 

260Ù POKE 54275,9 POKE 54276,65 
2610 FOR TT=i TO 90 ■ NEXT : POKE 54276 
, 0 : RETURN 

2620 REM +*****■+:***+**#**♦*+*****+ 

2621 REM * * 

2630 REM * MEMORIZZACI ONE * 

2631 REM * * 

2640 rem 

2650 GOSUB 5578 : GOSUB 1560-GO8UH 16 
SO 

266Gi GOSUB 2680 -GOSUB 2690 : GOSUB 27 
@0 ■ GOSUB 2710 ■ GOSUB 272Ò : GOSUB 
2730 

2678 GOSUB 2740 : GOTO 2750 
2630 GOSUB 1 950 : Fi < 0 ) =XÌ ■ Xi= " " RETU 
RN 

2698 GOSUB 1578 P$’A>=At- XÌ=" "■ RETU 
RN 

2700 GOSUB 1998 : P$<2)=XÌ :}«="" : RETU 


RN 

2718 GOSUB 2010:P$<3)=HÌ X$= n " RETU 
RN 

2720 GOSUB £830 : Pf<4>~Xi ; Xi=" " ■ RETU 
RN 

2730 GOSUB 2050 : F'f <5>=X$ : XÌ="" ; RETU 
RN 

2740 GOSUB 2870 : Pi < 6 > =XÌ : Xi= " " : RETU 
RN 

2750 PRIHT"£HCME]" 

2760 PRINT TAB<ll>"nS DONNI VUOI CO 
RREGERE ?" : PRINT 'PRINT 
2770 PRINT "16 RIGHI] <31 <RE TURNO) < 
NO <SPACE>) " 

273Ù GET Zi ; IF Zi="" THEN 2738 
2790 IF ZÌ=CHRÌ<3£> THEN 3000 
2808 IF ZÌ ìB CHRÌ< 13) THEN 2820 
2810 IF Z*CCHR*<32> OR ZiOCHRidS 
i > THEH 2788 
2820 GOSUB 1798 

2838 PRINT" 12 RIGATILO UFI COSA VUOI 
CORREGERE ?" PRINT 
2840 PRINT" [2 RIGHI! 13N0ME 23CQGNO 
ME 3) INDIRIZZO" : PRINT 
2850 PRINT" C 2 RI GHT 34) TELEFONO 5>C 
OMUHE 63C.A.P 7 > NOTE 

2868 GET JidF J$=-"" THEN 2868 
2878 IF J$= " 1 " THEN GOSUB 2638 GOTO 
2948 

2880 IF Ji="2" THEN GOSUB 2638 'GOTO 
2940 

2890 IF J$="3" THEN GOSUB 2708=0010 
2940 

2308 IF Ji="4" THEN GOSUB 2720 : GOTO 
2340 

2310 IF Ji="5" THEN GOSUB 2718= GOTO 
2940 

2928 IF Ji="6" THEN GOSUB 2730 = GOTO 
2940 

2930 If" J$="7 m THEN GOSUB 2740 ^ GOTO 
2940 

294h hi )Sl JB 1 790 hf sTt s v 

2950 rem 

2960 REM * * 

2970 REM * RINNOVO PUNTATORI * 

2980 REM * * 

2590 rem 

3000 I F ft < 1 ) =8 THEH X < i > = 1 ■ FOR fl= 
O TO 6 : H0^<l,H>=F#tfì> -NEXT REI 
URN 

3010 FOR D-0 TO e-HO$<PO^J)>=Pt(0> H 
EXT 

3020 C 1 -PO ■ CL=CL-1 


40 - Qotnmoóor& 


3030 

3040 


3056 

3060 

3070 

3030 

3030 

3106 

3110 

3128 

3138 

3140 

3150 

3160 

3170 

3138 

3136 

3208 

3210 

3220 

3230 


3248 

3256 

3260 

3270 

3230 

3236 

3330 

3310 

3320 

3330 

3340 

3350 

3366 

3376 

3336 

3338 

34£i8 

3410 

3426 

3430 

3440 

3456 

3466 


FQR fl = l TO CL 

I F NO* C X < fi ) , 1 ) >P$ < 1 > AND Ho* < X 
vfi>,ÌK>P*(l) TH£H GOTO 3636 
NEXT 

IF PCM THEN X<CL)*PO : RETUR 
H • 

IF CL< Mfl THEN X<CL+ì>=PG:R 
ETURN 

IF CL=HR THEN X<CL)*PO ■ RETU 
RN 

FOR E=CL TO fi STEP -1 
X<B+1>=X<B> 

NEXT 

X<fi)=PO 

RETURN 

REM *#*#4s*#***##**#****###### 
REM * * 

REM *' RICERCR FINE RRRRV % 
REM * * 

REM ##*#**##*###*######*#*##* 
FOR CL=1 TO MA 
IF NOSCÓL, 1)="’’ THEN RETURN 
NEXT 

IF FL=1 THEN FL=0 : RETURN 
PRINT" I OLEARI " -FRI NT TRB< 14>" C 
7 BONN I fiGENDfi PIENA" 

FOR ft=l IO 5006 ■ NEXT 

GOTO 1260 

rem 

REM & % 

REM * STfiMFfl UTENTE SCELTO * 
REM % * 

REM 

I F NO* C X < CUR- 1), 1)-"" THEN IT- 
12 : ClJ=C2 : GOTO 4028 
PRINT" [CLERR1 " 

GOSUB 1566 : FOR fi =8 Tu 6:P*<fi 
)=NQ* CX<CUR-1 )/fl) NEXT 
PRINT" l HOME 3 t DOWN 3 " 

PRINT TRE ':?>■'[ DOWN] " F* <0 > 

PRINT TRE a@V'[ DOWN ] " P* < 1 > 
PRINT TRE a 2 > " l DOWN 3 ”P* < 2 ) 
PRINT TRE';12) ,, lD0WH]"P*(;3> 
PRINT TRE (1 1) " [ DOWN 3"P*(4) 
PRINT TRE < 9 > " CSOWNJ '‘F*<5> 

FRINT TRB<7) l ‘£DOWN3"P*<C6> 

GOSUB 1790 : PP=15- GOSUB 4306 
PRINT THB'-5>"CT> TELEFONRRE C 
M> MODIFICARE" 

PRINT TRB<7>"CDOWNKC> CRNCELL 
ARE 0> ESCE” 

GET 3C*: IF SC*= " " THEN 3450 
IF SC*="«-” THEN CU=IT+i : GOTO 4 


3470 

3480 

3496 

3500 

3510 

3511 

3520 

3521 
3530 
3540 
3550 

3560 

3576 

3588 

3590 

3606 

3610 

3626 

3630 

3640 

3650 

3668 

3670 

3680 

3696 

3760 

3718 

3729 
3736 
3746 
3750 
3760 
3779 
3788 

3730 
3883 
3810 


020 

IF SC*» ,, T 1 ' THEN 5830 
IF SC* =, 'M" THEN 3548 
IF SC*= !Ì C" THEN 4216 
GOSUB 2590 : GOTO 3458 

rem 

rem * * 

REM * CORREZIONE * 

REM * * 

REM ************************* 
GOSUB 1790 : F'P-14 ' GOSUB 4300 
PRINT TRE <1 0 >" E DOWN I E RVS ] COSR 
VUOI CORREGGERE" 

PRINT TRB<5> " C DOWN 3 1 > NOME 2)1 
NDIRIZZO 3 > COMUNE" 

PRINT TRE < 8 ) " [ DOWN 3 4 > TEL 5)C 

RP 6) NOTE " 

GÉT SX* : I F SX$='”’ THEN 3536 
IF RSC < SX* ) <43 OR RSC<SX*»5 
5 THEN 3580 

IF 3X*="1 " THEN GOSUB 1950 ^P* 

REM IFSX*="2"THEN GOSUB? 18 ; P* 
a>=X* ; X*=" " 

IF SX*="2" THEN 
<2>=X* ■ X*=" " 

IF SX*="3" TI 
C3>=X*:X*=‘“‘ 

IF SX* = " 4 " TI 
ì:4>=X*--X*=" " 

IF SX*= "5" Ti 
<5>=X*:X*=" " 

IF 3X*= M 6" Ti 
^ 6)-X* : x*- M " 

GOSUB 1738 : PP=ì5 ; GOSUB 4368 
PRINT TRE < 13) "TUTTO ESATTO ?" 
PRINT TfiB<9>” EBOWN3SI <RETURN> 
N0<8PRCE> " 

GET SX* ■ I F <SX*=""> OR CC3X*0 
CHR* (33)) AND <SX*OCHR*C32>) ) 

THEN 3760 

IF SX*=CHR*C13) THEN GOTO 37 
39 

GOTO 3548 
FOR fi=0 TO 6 
NO*<XCCUR”l ) > A)=P*<R) 

NEXT: GOTO 3420 

REM ìj!**^*###**#**##*#****#$ 
REM * * 

REM * RICERCA $ 

REM * * 

REM **feK**^#**##st!**5fiJSf#**#**#* 
PR I NT " I CLEflR 3 " : GOSUB 1 376 : PP= 1 


THEN 

» 

GOSUB 

1990 : P* 

THEN 

11 

GOSUB 

2818 : P* 

THEN 

11 

GOSUB 

2038 : P* 

THEN 

11 

GOSUB 

2856 : P* 

THEN 

GOSUB 

2078 : P* 
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3820 


3830 


3846 
3836 
3 8 SS 
3S76 


383Q 

3836 

3306 


38 1 6 

3920 

3938 

3946 

3958 

3960 

3978 

39S0 

3996 

4600 

40118 

4020 

4030 


4848 

4S5G 

4066 

4078 

4838 

4698 
4 1 6y 


4128 


6 : GOSUE 4306 : FRINÌ TAB< 12VQUA 
LE LETTERA ?" 

GEI SC$: IF SC$=’’" OR SC$CCMR 
$<£• 5) OR SCI >CHR$ ( 33 > THEN 
GOTO 3826 

PRIMI 10308) "[ 300 N Ir- i " : PR I NT 
70 B < 13 ) " S " SCO " l " : PR I NT JOB < 1 3 

*) 1 ! I I » 


f“ ! 4 - I : r-! m "■ -I rji'j - n -H.ri 4 

rL-I ■ U E JoUi? ;> i i 

POR 0=1 TO CL 3TEP 11 
POR E=A TO 0+10 
IP LEFT$ < NG$ < X C B > , 1 > O ? =SC$ 7 
NEH I T=h : CUR=IT+ 1 02=1 T : C2=OJ : 

| ij iTO ^0 c!0 

hext 

HEXT 

PR I NT TOB < 4 ) " [ BONN ] LETTERR NON 
PRESENTE IN ARCHIVIO" 

PRIHT TAB<8>"E3 DONNI TORNO AL 
MENU' ? SS/N)" 

GEI SCI IF 30$="" THEN 3928 
IF SC**"N" THEN 3310 
IF SC$="S" THEN 1280 
GOSUE 2596 : GOTO 3928 
REM 

REM Ss * 

REM $ SPOSTAMENTO CURSORE * 

REM * Ss 

REM Ss$#SsSs$***#SsS(SsSsSs*SiSsSeSÉSi- : j:SsSsSe 

PR I NT" [ CLEflR 3 " ■ CUR= 2 = I T =1 
GOSUE 4760 : PR I NT " [ HOME 3 L DONNI - 
-> ” 

GÈT S$ : CUR=CUR+<S$= " — " ) - (S$ = " + 


”> 

IF Si= IM ' THEN GOTO 4038 
IF SJ-CHRfdS) THEN 3316 
IF 3$="*-" THEN 1208 
IF CUR-19MA THEN 4616 
IF CUR-K1 THEN IT*188 : CU=Ì83 
: GOTO 4620 

IF S$="-" THEN J=J-1 
IF CURMT+11 THEN IT=IT+11-G0 
SUB 4706 : PRIHT" C HOME I E DONNI — > 
"■GOTO 4148 

IF CUR=<IT THEN IT=IT-1 1 : G0SU 
B 4768 : PP= 1 9 ■ GOSUB 4380 : PR I NT " 
— >" : GOTO 4148 

IF S$=" + " THEN PRIHT" E2 UPI’ 1 -P 
R I NT FRI NT " " ■ PR I NT 


4138 IF S$="-" THEN PRIHT" C 3 URI— > 
” ^ FRI NT" " : PRIHT" " :PRINT" 
13 URI” 


4148 GOTO 4030 
4150 END 

4163 PR I NT TRE < 2 > ” [ UP I " HOS ( J+ 1 , 0 ) 
4178 RETURN 

4188 rem 

4181 REM ss * 

4190 REM Ss CANCELLA UTENTE * 

4191 REM Ss Ss 

4288 REM 

4218 I N=CU - 1 : NOI < X < 1 N > , 2 > = f ' # " 

4226 FGR A=IN TO CL 

4238 IF R=Mfi THEN X<A>= 8 ■ GOTO 426 
6 

4248 X<A>=X<fl+ì> 

4258 NEXT 

4268 IT=I 2 : CU=C 2 : GOTO 4828 
4278 REM *###*SS#f 3 Ms##«**#****SS**#Ss 
4271 REM Ss * 

4288 REM Ss POSIZIONE STAMPA Ss 
42 S 1 REM Si J * 

4239 REM ##*######Ss*$sis$##Ss>MsSs#* 3 K*Ì 
4308 PR I NT ” C HOME I " : FOR P 3=0 TO PP : 

PRIMI: HEXT= RETURN 

4318 REM *#St***#-^#*#*##***SESs*!|i#** 
4311 REM * Ss 

4326 REM Ss SCRITTURA DISCO * 
4321 REM $ # 

4336 REM Ss Ss SfSs ¥ s Ss Ss Ss Ss # Ss Se# Ss Ss Ss Ss :Ss* Ss $ 4 :** 
4348 OPEN 15 , 3 , 15 , "S : DATA" : CL 03 E 15 
4358 OPEN 2 , 8 > 2 ," 0 :DATR,S,U" 

4368 FL=l: GOSUE 3198 
4370 FOR M =1 TO CL -1 
4386 FOR P =8 TO 6 

4390 PR 1 NT# 2 , NOI ' 31 . Pi CHR$< 44 ) 

4488 HEXT 

4481 I 4 *=STR$<X<M> ) 

4416 PR I NT# 2 , 14 $CHR$ < 44 ) 

4426 HEXT 

4421 PRINTH 2 , "■e-"CHR$< 44 > 

4436 CLOSE 2 : CLOSE 15 
4440 RETURN 

4456 REM Ss##SsSs:Ss#SsSs##SsSs#SiSsSs*SsSsSsSi#Ss* 
4451 REM Ss * 

4468 REM Ss LETTURA DISCO Ss 

4461 REM Se * 

4478 REM Ss*Se$SsSe#*#Ss*$$####*#*#SsSs$$ 
4430 OPEN 2 , 8 , 2 , " 8 : DATA, S,R" 

4498 GOSUB 4620 
4588 M=ì 

4518 FOR. P ”8 TO 6 

4520 INF‘UT#2j 14$ 

4521 IF W$="«-’’ THEN 4570 

4522 no$c:m,p:>=n$ 
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■4533 NEXT 

4543 INPUT#2,WÌ 

4541 X<M3='/RL<UÌ> 

45(50 : GOTO 4510 

4570 CLOSE 2 • CLOSE 15 

4389 RETURN 

4390 REM 

4531 REM * * 

4606 REM * CONTROLLO ERRORE * 

4601 REM * * 

4613 REM ile*###*#*#*#*##**######### 

4620 OPEN 15,8,15 

4S30 I NPUT# 1 5 , EN , ER* , ET , ES 
4640 IF EH=0 THEH RETURN 
4650 PR I NT*' CCLERR3" SPRINT TFlBC12>"[ 
3 DOWN 3 E RVS 3 ERRORE SU DISCO E 
RVOFF3C3 DOWN 3" 

4660 PR I NT : PRINTEMÌ : PR I NT 
4673 PRINT : PRINT"ERRORE TIPO". .EH 
4683 PRINT : PRINT "TRACCIA ",ET 
4630 PRINT : PRINT “SETTORE " , ES = PR 
INI : CLOSE 15 : END 

4760 IF CUR=MR-1 THEN CUR»189 : IT=1 
88= GOTO 4626 

4710 ir IT<1 THEN IT=i:GOTO 4018 
4726 PRINT 11 CCLEAR3 " : FOR J=IT TO IT+ 
16 : PRINT TRB<4)N0Ì<X<J>/1> TRE 
< 24 > NOÌ < X < J ) , 0 > : PR I NTOi : NEXT 
4736 PG*J/11 
4749 GU=CUR 

4738 PRINT TAB CI 6> "PAGINA ";"E3 L 

EFT3" INTCPG) 

4760 PRINT TRB<4>"[RVSKV->CUR <> 
>MENU ■' <RETURN>SCELT A E RVOFF 3 E 
UP3'*- RETURN 

477G REM ****#*#####**#*##**#*##*# 
4771 REM * * 

4789 REM $ INIZIO * 

4781 REM * * 

473S REM #******#*#***J|i**##***##*# 
4806 PRINT " ECLERR3" : GOSUB 1870 
4810 PP=7 GOSUB 4300 
4320 PRINT TRE <1 5 >" COSA USI ?” 

4830 PRINT THEC 12) 11 C2 DOWN] [RVS3DCR 
vomisco 0 [ RVS 3 C [ RVOFF ] RSSET 
TA" 

4840 GET SC# : IF SCf=’"' THEN 4843 
4350 IF SC?-‘'D" THEN DD-0 : GOTO 483 
0 

4860 IF SC*="C" THEN BD=l'GQTO 483 
0 

4370 GOSUB 2538 : GOTO 4340 
4380 PRINT" CCLEAR3" : GOSUB 1870 


4836 PP=7 : GOSUB 4300 
4300 PRINT TRBC8) ! 'CRVS3 

4310 PRINT TAB<8) " CRVS3 

ir 

4320 PRINT TABC8) "ERV83 INSERIRE SU 
PPORTO ERTI " 

4330 PRINT TAB<8> "CRVS3 

il 

4348 PRINT TAB < 8 ) " £ 4 DOWN 3 NUOVO flRC 
HIVIO ? CSXN>" 

4550 GET SCi r IF SC$=“ M THEN 4350 
4366 Ir SC$="3" THEN KX=1 RETURN 
4370 IF SCt="N” RND DD=0 THEN GO 
SUB 4480= RETURN 

4339 IF SCi="N " HMD DD=1 THEN GO 
SUB 5336 ; RETURN 
4939 GOSUB 2590 : GOTO 4350 
5000 REM f****#^*^**#^*##*****#*# 
5081 REM * * 

5010 REM # TELEFONARE * 

5011 REM * * 

5820 REM #*****#*#*#**##**#*sf*SM!## 
5830 H$=LEFT $ ( N04 (X ( CUR- 1 ) , 4 > , 1 > 
5040 IF H$<CHR$<43) OR HÌ>CHRÌ>:5 

7) THEN GOSUB 2536 : GOTO 3420 
5058 PR INI"! CLEfiR 3 " : GOSUB 1370 
5860 FOR 0=1 TO LEN<P$<4)> 

5073 IF MIBi<PÌ<4>,A, 1> = V" THEN 0 
*l:GOTO 5100 
5083 Mt=Mi+M 1 Di < Pi < 4 >.h, i> 

5038 NEXT : IF 0=1 THEN N*=MÌ : Mi=" “ : 
0=0: GOTO 5126 

5103 FOR E=fi+1 TO LEN(PÌ<4) > 

5110 NÌ=N$+MIDi<PÌ<4> , B, 1 ) ’ NEXT : 0=6 
5120 PRINT TAB<S>"E3 BQWNHRVS3 

*t 

513S FRINÌ TAB<8> " [RVS] ALZARE IL M 
ICROTELEFONO 11 
5140 PRINT TABCS)' , [RV33 

[RV0FF3 " 

5158 PRINT TRB<5>'‘C2 DOWN 3 NUMERO Dfl 
ESEGUIRE "Pi (4, 

5168 PRINT TflB(4> " [3 DOWN 3 ESEGUO AN 
CHE IL PREFISSO ? CS/NV 
5178 GET SCt IF SCi= ,, “ THEN 5178 
5180 IF SC$="S" THEN Di=Mt+N$ : K3T 
0 5218 

5190 IF SCi="N" THEN Dt=Nt:GOTO 5 
216 

5200 GOSUE 2538 GOTO 5179 
5210 POKE 36573, 255 ^POKE 56577,128: 
FOR fl=@ TO 2680 : NEXT : POKE 5657 
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7,0 

5228 PP=12 : GOSUB 4306 'PRIMI ThE^L 1 
E2 BONN] IRVOPF 3 PREMERE UH TASI 
0 R LINER LIBERA 11 FOR T**l Tu 1 
m ■■ NEXT 

5238 GET W* : IF W#0"" THEN 5326 
5248 PP=I2 ■GOSUB 4306= PRIMI TAB< 5? " 
[2 DOWN HRVS] PREMERE UN TASTO 
A LINER LIBERR" POR T=1 TO 168 
: NEXT 

5258 UOTO 5228 
5268 GOTO 5328 
5270 POKE 56538, 1 
5238 POKE 56532,8 
5238 POKE 56533,175 
5388 POR S-l TO VALSA*) : POKE 56531, 
7 1 ' POKE 5653 1 , 1 75 : POKE 5653 1 , 6 
3 : FOR I = 1 TO 57 ■ NEXT I : NEXT 
5310 POR X=1 IO 500 NEXT ; RETUR M 
5326 FOR Fi— 1 TO LEH<Bf > 

5338 Rf=MlB$£D$,A, IL IF THEN 

5340 GOSUB 527S 
5350 NEH IR 

5368 PP=1S = GOSUB 4388 : PRIMI TAB<11> 

ir ■] 


5370 


5330 

5330 


5408 

5418 

5428 


5438 

5431 

5448 

5441 

5458 

5460 

5478 


5438 

5438 


5588 


PRIMI TflBai) H :UP3ERVS3 RI TEMI 

0 ? ;s/n> " 

GET Sì ; IF 3$= 11 " THEN 5.388 
IF SÌ="S" THEN PP-1S : GOSUB 438 
0: PRIMI TflB(H)" 

"■GOTO 5428 

IF S$="H" THEN Af=" " : M$= " " Hi= 
11 GOTO 3318 

IF S#O b N” OR STO"S" THEN 5 
388 

FP=12: GOSUB 4300 -PRIMI TAB<5>" 
L2 DOWN 3 

":O0T0 5218 

REM #*##!|*|t##*#***S?***3(f*#»*+$ 
REM * .* 

REM $ FINE * 

REM * * 

rem *****mwwMm*Mmmm* 

PR I NT " E CLERR 3 " : GOSUB 1 378 * PP= 1 
8- GOSUB 4388 

PRINT TRE C7> "HAI FRTTO MODIFIC 
HE ? <S/N> ’’ : PR I NT " [ 2 DOWN 3 E 7 

RIGHT3 1 *; 

GET SCÌ-IF SC#*"" THEN 5430 
IF 3Cf="S" RND BD=0 THEN GOS 
UB 4348 GOTO 5538 
IF SC#- "3” AND DB=1 THEN GOS 


5518 

5528 

5538 

5540 

5541 

5550 

5551 
5568 
5578 
5530 
5530 
5688 
5610 
5628 

5630 
5648 
5650 
5678 
5671 
5680 

5631 
5ò38 
5780 
5710 
5726 
5738 
5748 

5759 
5751 

5760 

5770 

5771 
5788 
5738 

5380 
5801 
581G 
5311 
5320 
583S 
5348 
5850 
5368 
5361 
5862 
5370 
5888 

5381 
5388 
-5310 
5920 


UB 5706= GOTO 5533 
IF SC#="N" THEN 5538 
GOSUB 2590 GOTO 5480 
PRIMI TRE <7 VI 3 UP ] RRR 

I VEDERCI " : END 

rem 

REM * * 

REM * CERCA POSTO * 

REM # * 

REM ali#########***#**#*****#** 
FL~1 GOSUB 3130 
FOR H---1 TO CL 
IF N0#<R,2>=“*" THEN GOTO 5640 
IF CL=MR THEN 3238 
NEXT 

IF CL< MR THEN PO»CL : RETURN 

GOTO 3238 
PO— H 
RETURN 

REM *##$##### #* *####*#**##### 
REM * * 

REM # SCRIVE SU TAPE * 
REM * * 

REM ###*jjf*^5fs***-**si6##*#******* 
OPEN 1,1,1, "DATA" 

FL-1 : GOSUB 3190 
FOR M=1 TQ CL- 1 
FOR P=0 TO 6 
PR I NT# 1 , NO# v! M , P > C HRÌ < 44 > 

NERI 

Ì*I#=STR#««M>> 

PRINT#1,U#CHR#<44> 

NE NT 

PRINT# 1, "<-"CHR#f44> 

CLOSE 1 
RETURN 

REM **##*#**.**###if:*^**sME#*##^ 
REM $ ^ 

REM * LEGGE DR TAPE * 

REM * * 

RE M ***W-**%*.MM*M»***à $*#*** 
OPEN 1,1,8, "ERTA" 

M-l 

FOR P=0 TO 6 
INPUT# 1 , W# 

IF W#="<P' THEN 4576 
NOf <M, P>=U# 

NEXT 

INPUT# 1,W# 

X<M>=VRL<W#> 

M-M+l : GOTO 5856 
CLOSE 1 

PRINT" I OLEARI " : RETURN 
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LE OSCILLAZIONI 

» £/; Mauro, Massetti 

(il problema del pendolo) 


In fisica, uno dei fenomeni che ri- 
veste notevole interesse e curiosità è 
senza dubbio quello del moto armo- 
nico, In molti musei di scienza e tec- 
nica, in particolare quello di Milano, 
si trova una intera stanza ove è situa 
to un pendolo semplice con una 
corda che ha una lunghezza di oltre 
dieci metri ed una 'boccia' di molti 
chilogrammi 

Il pendolo semplice: l'esempio più 
comune di moto armonico semplice 
Si definisce pendolo semplice" un 
qualsivoglia corpo di massa M so- 
speso per un filo d« lunghezza defini- 
ta L in questo caso si ipotizza che lo 
spostamento X rispetto alla posizio- 
ne di riposo (quella posizione in cut il 
pendolo da noi definito resta immo- 
bile in assenza di sollecitazioni per- 
turbanti esterne} sia molto piccolo 
rispetto a L. In natura però non si 
trovano esempi di moli armonici 
semplici in senso assoluto, esistono 
un’infinita di perturbazioni" che in- 
fluiscono sul moto stesso 
Queste perturbazioni' danno co- 
munemente origine a smorzamenti 
che portano ail'esaurirsl del moto 
considerato 

Uno degli esempi di causa di smor- 
zamento piu comuni e legato alfa 
densità del mezzo nel quale avviene 
il moto (tipico Tana). Questo partico- 
lare tipo di smorzamento è difficile 
da calcolare con precisione, perché 
funzione di parecchi parametri: la 
rugosità superficiale de! corpo, la 
sua forma e quindi il suo coefficiente 
di penetrazione (il famoso CX auto- 
mobilistico) ecc 

Più semplice da calcolare risulta in- 
vece lo smorzamento derivante da 
eventuali urti con altri pendoli sem- 
plici. A tal proposito si consideri il 
gioco, se cosi lo si può chiamare, 
delle cinque sfere sospese al filo che 
battono Tona contro l'altra in manie- 
ra tate che quelle dì estrema destra e 
di estrema sinistra s r staccano alter- 
nativamente dalle altre 


in questo caso lo smorzamento è da- 
to dal grado di elasticità delle sfere 
stesse più alto è il grado di elastici- 
tà, più basso è il fattore di smorza- 
mento e quindi più a lungo il sistema 
di pendoli si manterrà in movimento. 
Il programma che vi propongo è re- 
lativo al fenomeno sopra descritto. 
La sua semplicità non pone partico- 
lari problemi di comprensione e di 
utilizzo' una volta visualizzate le cin- 
que sfere sullo schermo dopo il 
"RUN" iniziale è sufficiente "carica- 
re" il sistema premendo più volte il 
tasto CRSR (quello all'estrema de- 
stra della vostra tastiera) per portare 
la sfera di destra alla posizione dalla 
quale si desidera inizi il movimento e 
quind: premere un tasto qualsiasi. A 
questo punto si attende che il siste- 
ma si riporti alle condizioni di equili- 
brio (l'immobilità) Per terminare, 
battere nuovamente un tasto qual- 
siasi. I valori del fattore di smorza- 
mento FS sono compresi neH’intor- 
no (X-FS <=1; per FS~0 non vi è 
smorzamento ed il moto continua al- 
l'infinito (è quasi il caso di corpi per- 
fettamente elastici) mentre per FS= 
il moto si esaurisce al primo impatto 
Per la realizzazione della parie grafi- 
ca si è ricorsi aU’uttlizzo del "SI- 
MONIS 1 BASIC 1 , un tool (strumento 
addizionale) avanzato disponible per 
il Commodore 64 che mette a dispo- 
siziono del programmatore ben 114 
comandi addizionali rispello al BA- 
SIC standard 

Il Simon's BASIC è nato dalla fanta- 
sia, dalla tenacia e dalla passione 
per l'informatica di David Simons, un 
ragazzino allora tredicenne, che uti- 
lizzando il Commodore appena re- 
galatogli dal padre volle dotarlo di 
un set di funzioni addizionali che 
portassero le capacità della macchi- 
na a sua disposizione a competere 
con quelle di altre per le quali erano 
disponibili versioni BASIC più po- 
tenti Questo BASIC risulta essere 
quindi un "collage" dì comandi e 


funzioni appartenenti sia a Home 
che a Personal Computer 
Nel caso specifico sono stale utiliz- 
zate solo alcune fra le funzioni di- 
sponibili per la grafica e cioè: 

e HtRES, che serve ad idealizzare 
in modo grafico ad alta risoluzione 
lo schermo 

•LINE, che traccia una retta fra due 
punti dati. 

•CJRCLE. che traccia un cerchio di 
raggio e centro definiti. 

•PAINT, che riempie una superficie 
chiusa con un colore definito. 
•PAUSE, che ferma l'elaborazione 
per un numero di secondi predeter- 
minato 

• DESIGN, che permette di creare 
con facilità uno sprite. 

•MO0 SET, che alloca nella memo- 
ria del C641 o sprite appena creato. 
•MMOB, Che richiama uno sprite 
precedentemente creato, to attiva e 
Io visualizza suiJo schermo nella po- 
sizione desiderata. 

•RLGCMOB, che sposta nella nuova 
posizione voluta uno sprite prece- 
dentemente attivato. 

•VDL, che sceglie il volume del 
suono 

•WAVE, che sceglie la forma d'onda, 
•ENVEL0PE, per definire le fasi del 
suono. 

•MUSIC, che permette di comporre 
o creare lei fette sonoro. 

•PLAY, per suonare quanto prece- 
der! te m e rtte c ò m post o . 

Passiamo ora ad analizzare più in 
dettaglio H programma propostovi. 
Dopo un rinvio alla subroutine di 
presentazione (linee Si 00-9207) vie- 
ne richiesto il solo parametro defini- 
bile dall utente necessario per far 
eseguire il programma: il fattore di 
smorzamento (ricordate che deve 
essere compreso fra zero e uno). 
Seguono un nuovo rinvio alla routi- 
ne grafica dì creazione (linee 5900- 
70t0) assegnazioni di posizione e a! 
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routine di caricamento’ del sistema 
di pendoli (linee 1011-1020) A que- 
sto punto e allocata la routine di ri- 
torno det pendolo costituito dalla 
sfera di destra ed il test di fine oscil- 
lazione (linee 1021*1060); segue quim 
di la routine di allontanamento del 
pendolo costituito dalla sfera di sini- 
stra (linee 1061-1070} e le roubnes di 
movimento inverso (linee 1071-1120 
e 1121-1130) con il ritorno aFla ripe- 


tizione del ciclo. 

Le linee 1900-2010 sono relative alia 
subrouttne richiamata nella linea 
1019; le linee 3900-4020 e 4900-5020 
sono relative alla subroutines di 
spostamento verso sinistra e verso 
destra rispettivamente dei due pen- 
doli in movimento Alle linee 9900- 
10010 è allocato iF test di fine pro- 
gramma. La creazione degli spritesé 
realizzata con le istruzioni che par- 


tono dalla linea 10950 alla 12230. È 
infine da notare che solo le due sfere 
ai lati si spostano in quanto il movi- 
mento si propaga istantaneamente 
attraverso il sistema di pendoli. 
Provate dunque a variare il fattore di 
smorzamento eseguendo più prove 
onde poter confrontare le risposte 
del sistema utilizzato e non solo 
buon divertimento, ma buono stu- 
dio della fisica 1 
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100 REM ******************** 

116 REM * IN SIMON-:;;. BASIC * 

120 REM ******************** 

130 REM 

1 000 REM**** ** ************ ** * 

1001 REM* IL PROBLEMA DEL * 

1092 REM* PENDOLO : * 

1003 REM* LE OSCILLAZIONI * 

1064 REM* * 

1O05 REM* DI MAURO MASSETTI * 

.1 0 06 REM** ***** ****** * * ** * * * * 

1007 REM* INPUT E ASSEGNAI. * 

1 008 REM ** ******************* 

1 000 00 SUBO 1 1 0 ■ PR I NT" MW" I HPUT " FATT . SMOPZ . " FS : GOSUES000 
1 0 ! 0 A=200 : LC= 1 40 ; '<=200 : K 1 = 1 20 X=K : V=LC 

101 1 REM******************** 

1012 REM* INIZI ALI ZZAI I ONE * 

1013 REM* DEL SISTEMA E * 

1014 REM* ASSEGNASI QUI * 

1017 REM**************** *** * 

1018 GETSf : I FS % = ■ " " T HE N 1 0 1 8 

1810 1 FS$= 1 "UT IMENI E « = 305THENGOSUB2Q0 0 : GOTO 1 8 1 S 

1020 SM"- 1 -FS : HB=X : LS-K ■ A*208 • NP=X : VP=V 

1 021 REM************** ********* 


48 - Commodore 










1 02.2 
1323 

1024 

1025 
1039 
j. 640 
1 04.0 
1031 
j 032 
1 033 


50 ì 

0 

502 

0 

5900 

590 

L 

590 

iL 

590 

d 

5304 

j^TAfT* 

QU'-J 

0 


REM* RI TURNO BEL PENDOLO * 

REM* SFERA HI DESTRA E * 

REM* «MSI DI FINE OSCIL. * 

rem *** * * ** ** m # **** * * * ** ** 

GOSUB4000 : LS=K 1 - 1 NT C < VI ! > Z5*SM > *5 : XD=K 1 

asm 5 : "rara ai , 10000000 : ajsaainaai , 0 , 2 , 1 5 , 0 - fiiMare . "211 osar 




[FLS>KD-5THEN 1 0008 


4901 

.4302 

4903 

5090 


REM *** * * * * * ** * ******** ** * * 

REM* MLLON7SHAH. PENDOLO * 

REM* SFERA DI SINISTRA * 

'* M ************ * ** * * * * ** * * 

1 20 : GOSUB4000 - XS-LS ■ LB=K 1 
********************* 

RITORNO BEL. PENDOLO * 

SFERA DI SINISTRA E * 

M*M DI FINE OSCIL. * 

M ** ********* *** * * * ****** 

GOSUE50S8 : LD- I NT ( < K l : : S > /5*SM > #5+K ■ NS=K 

awH.i5 - siaaai , 10000000 • aziaaswaai , 0.. 2, 15.* 0 ■ bijkìws, H r3iC5*" 

y.P=KS ■ VF-LC - IFLIiOS+STHEH 1.0000 
REM*********************** 

REM* ALLUNI ANAM. PENDOLO * 

REM* SFERA DI DESTRA * 

REM ** * ** ************ * ***** 

n=0 : Fi =2 00 : GOSUB5000 : XD=LD : LS=K : GOTO 1030 

REM*********************** 

REM* SUBRjftWaiHE HLLONThH * 

REM* SFERA DESTRA PER * 

REM* INIZIALI SERE I CHE * 

REM*********************** 

yp=Y : X==X+5 : GOSUB 14000 : N O 
■.■wJB8000 : RETURN 
REM ********************* *-* 

■REM* 3UBRS&MINE SPOSTA]*!. * 

REM* SFERA VERSO SINISTRA* 

REM ************ ** ** ******* 

F ORX=XD - 5 TOLSSTEP - 5 
O'Jo'JT 1 40HM - GUSUBS000 j t'ì ’ ; I - . , P ::: . 

HERTZ ■ RETURN 

REM ************ * **:* ******* 

REM* SUBRMJUMINE SI 
REM* SFERA VERS 1 ' 

REM*********************** 

F0RX=XS+5T0 LD STERO 
UUSUB 1 4uU0 ■ OUyUB’3000 ■ VF— V : 

NEXTX ^ RETURN 

REM*********************** 

REM* SUERMMIINES INIZIfìL.# 

REM* GRAFICA E CREAZIONE * 

REM* IMMAGINE FISSA * 

REM*********************** 

ssiaas 6 ..S 


Zi BlSKitZ 
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««:s 

mz \3 


msuBim e 9 +atò, 193,215,1 
bmsw m 200 , c , 1 0 , s , 0 : asti rim 1 90 , c 

23SQ3 1 , {.35,- 193, 135, 193,0.20 
BHM» 1 20 , C , 1 0 , y - u 1 {fittili 119, C 
mzw fi.s.fi, C, 1 - RETURN 
£S3*ìM h , c , 10, 8, 1 Zittìi :V I .. e, t 
rem** *^*##it:^*iNÉ3tg m*mm 

RBM$ SUBRWMIHE GRAFICA * 

REM* SI SPOSTAMENTO * 

PEM*- 0ELLR SFERR CON # 

REM* CflNCELLRZ I ONE 903 I Z , * 

RETI* 93=«EI3EHTE OPERA * 
REM*********************** 

3gs J|3 Pj t 1 fi , XP J Vp+ 1 0 « 0 

SÉtJ'j H IP V V 4 - < M ’■ 

dncfion M , i<:+ 1 5 * v+53 , 0 50 : return 

REM******* **************** 

REM* INsfcMffìZIGNE * 

REM** * * *;-. *** ***** * *** :f * * * * * 

print s, ^;^^ <? 

r-, i" a y ir ! T 11 i^ii -■,*■,■< „* ujm .+■ jmp jp ■ jm ,i ■ .■* 1 ■ ,p ■ -i ■ , 4 « 

I" a-- i» E i ■ »*i' « f'w r- fai p i’i t'm i'm p’i i'f »'■/■ fi* i"V 1 

fri NT" sa il problema : 

FRI NT" va PENDOLO - 

fri NT" ;:a le oscillai!! 

FRI NT" va 

FRI NT" 23 DI MAURO PIASSI 

dptmtii *-• • * ■ - ■ V* , V * V W v 1 " h * 

- S ■. .‘ ! ! 1 . Mi ii'ii, 3. ;, F Hi III ir v i,|'|i>'iM *: DI V 

ttilXHaG ■ RETURN 


RETUR! 


mmKtt 0 : sw«i]aa i 
siasi - ^un 

REM** * m * ******** ** #* * * **** 
REM* SUBRWMHNE CREAZIONE # 
REM* DEGLI SPRITES * 
REM** '? ************ * ****** ** 
M =54 ‘ tfCSMB 0 , M 1 * 64 + 49 1 52 

g BEBEBEBBE 

8. . . B3BBBBB3BBBBB 

0. . BEBBEEEEBBBEEEB 

0.BEBBBBEBEEBSBBBEB 

0.BBBBBBBBBBBBBBBBE 

SBBBBBB E BBBBBBBBBBBB 

gBBBBBEEBBEBEBBBEBEB 


6310 
6020 
SO 30 
;o46 
6050 
6063 

r [Q t \i 

6072 

08 .' ■t 

6876 

7008 

7010 

7960 

7981 

7882 

7983 

7984 

7985 
7?06 
8008 
8030 
8050 ■ 
9180 
9101 
9182 
9118 

9280 

9281 
9282 

9283 

9284 

9285 

9286 
9287 
3980 
9301 
9902 
18008 
10010 
1 @020 
18958 
18951 
10952 
1 8953 
1 1888 
11018 
1 1828 
11840 
11850 
1 1 868 
11878 
11080 


SO- Commodofe 



S SE BBE BEBBFBEBBBBBE 
£ BBB BB 2 BBBBBBBBB E: 
0 BBBBB BBE B B BEBBBBB B 
0.EBBBEEEBBBBBBEBBE 
13. BEBBBBBEEBBEB3BBE 
S. .BBIiBBBBBEBBEIiBB. 
®. . . BBBBB3BBBBBBB . . 
a BBBBBBBBB. . . . 


11228 ÌB:]E?ia|« 8, MI, 6,8,8 
i 2 0 88 l'2~55 : HJUsMC !l 8 , M2# >2 4 +40 1 

1 _! U i V 8. a . a ■ E £' BB EBl'Bi, . 

12028 a. . . BE EBBE BEBBBBB 

1 204 3 fi . . B BB BBBBB BEBBBBB 

: 2858 0. BBBBBBBBB BBBBBBBB 

1 200 8 0 . BBBBBBBBBBBBBBBBB 

1 2070 8EB EBE BBE BBBBBBBEBEB 

12088 8 BB E BEBBBBB BBBBB BE BB 

1 2050 a BE BB BB BB EE BEBBBB BB B 

1 2100 SEBBBBBBB'BEBBBBBEBBB 

12128 0BB3BBERBB BBBBBBBBEB 

121 30 a. BBBBBBBBBBBBBBBBB 

12140 0. BBBBBBBBBBBBBBBBB. 

12I50 a . . EBE EB BB EBBE EBBI: 

1 2 1 SS S . . . BBBEBEBEEBBBB 

121S2 a BBBBBBBBB 

12164 SS.. 

12178 SS 

12180 a a . . 

12133 e 

1 2200 a 


■14010 

14028 

14030 

14048 

14856 

140:68 

P'EhDV. 


12228 Sie«8:*l 1,142,0,8,0 
12238 RETURN 

1 3988 REM* 4 * * * * * % * #* **# # ## 4: * #* ♦ 4:* 
13991 REM# SUEFcmiUfilNE POSIZIONE * 
'-'■'■■■■If- 19902 REM# ORDINATE BELLO SPRITE# 
i 3903 REM#### # ## ### *** ## ## # *# # # # # 
1 4808 XK~RBS < R~X > 

I FXXO=2@THENV=L 6 GOTO! 48 o 8 
I F>"v->3:0 TH EH V=L C~ 1 : GOTO 14860 
I EXK<=68THEN V=LC < XX- 30 > /5 - 1 : GOTO 1 4868 
I FXX<=95THENV=LC- (HX-60V2. 5-7 : GOTO 1 4860 
V=LC- < XX-95 > /5#3-2 1 
RETURN 
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i programmi costituiti da una sola riga 
possono essere utility, l *imtility" od 
altro. Le idee espresse sono e saranno 
solamente spigolature. 

La grafica, la gestione dei video, la 
gestione delle stringhe: sono gl! 
argomenti più semplici da sviluppare. 
Questo fatto non deve limitare la 
fantasia de! lettore che invia ed invierà 
le T R t ed a maggior ragione anche 
di chi le utilizzerà. 


#34 


La seconda puntala di "una riga" vede ancora gli ottima 
lavori dei lettori. Queste IR saranno remunerate con un libro 
scelto fra quelli proposti. 

La disponabilità di premi è purtroppo Imirtata. Quindi, quando 
detta disponibilità sarà esaurita l'unica gratificazione sarà 
quella di vedersi pubblicati i propri lavori. Spero che questo 
fatto non sia un freno alla vostra fantasia 

In questo numerò, troviamo in particolare tre 1 R che posso- 
no essere un validissimo aiuto per cokxo che sono in grado di 
eseguire ì controlli di deflessione di un televisore Se le capaci- 
tà elettroniche non fossero così elevate, te IR in questione 
ppssono essere utili per la comprensione delia gestione dei 
video. 

Prima di esaminare io "una riga Tf di questa puntata, quali 
potranno essere gli argomenti su cui lavorare? Come eseguire 
l'hardcopy video? Coma fare una cornice sullo schermo? 
Come tare una spiralo quadrata sul video? 

Alla prossima puntata e buon lavoro 

(Gloriano Rossi) 


#32 

Colma schermo. Una delle pnme routine che si digitano 
quando Si compera un Computer è quella che consente di 
riempire completamente il video con un medesimo carattere. 
Questo breve programma consente di scegliere di volta in 
volta l’elemento che Si vuole utilizzare per compiere tale 
opei azione, 

/'Roberto Menassi) 

! GET A$s PRINT" IHOttE ] " A$s POR X=0 TO 
399 : PQKE 10£5+X,P£EKU0E-4>:NEXT: 
GOTO 1 

#33 

Scacchiera. Non abbiamo l'ambizione di proporre in questa 
sede un gioco degli scacchi , anche perchè sarà difficile fare un 
programma di scacchi in una sola riga per il vostro computer 
Commodore, ma l'effe Ito vi sivo che si ottiene digitando questa 
routine è senza dubbio simile al teatro di battaglia di tante sfide 
scacchìstiche 

(Roberio Morassi) 

1 PRINTTRVS] " J ! PQKE 646 , (A AND 1 
)+C<TI/3E3> AND 15):B-B+i+40*(B=3 

9 ) IA*A+ 1 + <8 =39) SGOTO l 


Barre orizzontali. Un ottimo modo per sintonizzare il nostro 
televisore con il compuetr è avere stampato sullo schermo 
delle linee ravvicinate (orizzontali e verticali): quando saranno 
ben distinte la sintonizzazione sarà perfetta 

(Roberto Morsosi) 

1 POKE 64S ,Ni FGR X=0 TG 33 : PR I NT 1 11 [ R 
VS] * ; i NEXT ! N-N* J + 16* <N= 15 ) ; GOTO 
1 


#35 

Labirinto. Con questa routine è passi- 
bile creare un labirinto a due dimensioni 
avvalendosi semplicemente dei caratte- 
ri messi a disposizione dal vostro com- 
puter COMMODORE (in questo caso 
364 ). 

(Roberto Morassi) 

i GET A$s PR 3 NT" THGhE } *A 
! A =RM3 C 1) *399 + 1 085 s 
POKE A,PEEK< 10£4>;POK 
E A +54878 ,PEEK (55296 ) 
zmir 653 ,1,1 = GOTO 1 

#36 ~ 

Come per runa riga 36 

(Roberto Morassi) 

1 FR INT" IRVS 3 : N=N+ 1 + 

40 * (N=39 ) :PDK£ 646, N 
AND 15 i GOTO 1 

#37 

Scalinatella* Ecco come con poche istruzioni BASIC il vostro 
Commodore può simulare la rappresentazione di una scala in 
due dimensioni Buona discesa!! 

(Roberto Morassi) 

1 A = ( (N OR 3 >/4 ) Afe 1 t PR INTMID$< “ [ 
LEFTHDOUN] ",A + J , 1 )CHR$< 175-5*A>* 
rR IGHT 3 " ; SPORE 646 ,PEEKC 16 1 > (N=Nt 
1 sGOTO 1 
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Serpente. Nel deserto spesso si vedono quei piccoli serpenti 
che camminano velocemente sulla sabbia Questa IR ripro- 
duce tale serpente che con la sua strana andatura, quasi 
sinusoidale, scenderà nella fascia centrale del vostro monitor 
oTV. 

(Roberto Morissi) 

l A =20 + INT < I0*S JN< **N/13 > > fi PR INT TR 
B C A ) " « ■ : N-N+ 1 : PGKE 648 , PEEK <1611 = 
GOTO 1 


#39 


Multicolor. L’un a riga predispone il 
Computer per l’uso del carattere 
multicolore. 

(Sandro Marìconda) 

l PR INT" CCLEAR] MULTI COL 
□R MODE “ ! B =53580 ! FOR 
1=1 TO 4 • RR INT "COLOR" 
II : INPUT CtPOKE B+l ,C 
! NEXTiPOKE B-15,91 


#40 

Crea labirinto. Un "intricatissimo" la- 
birinto nel quale non sempre si riesce a 
trovar rusdta. Provateli 

(Claudio Levantini) 


1 PR I WTCHRSC205 ,5+RhtH 1 
) ) ; fi GOTO i 


# 41 


Scritta infinita. Con questa una riga la frase nella variabile 
A$ verrà scritta all'Infinito un carattere alla volta. Ovviamente 
la frase può essere sostituita con un'altra qualsiasi. 

('Ermanno Stivalaio} 


1 PRIMT' f CCLEAR 3 " : A$- “UNA SOLFI R1GA“ 
* FOR A = 1 TD LENCAS) SPRINT TA8 (ft)M 
JD$(A*,A, 1)7 iFOR B = 0 TD 99t hEXTB r 
Ri RUN 


#42 


La colonna vincente. Affidati alla casualità ed utilizza il tuo 
Commodore per la compilazione della schedina con questa 
simpatica una riga, {in caso di vincita: il 10% alla redazione! 

(Ferdinando Tbmmasri 

Ì R$C0) = "X"tR*a>-"ì 

NT“ [CLEAR ì " ? FOR I = t TO i 3 ifì=RNDCl 
)* 3 :PRINTA$<A>:NEXT 


#43 


li topo affannato. Un topolino affamato 
divora una vìdeata di formaggio 
svizzero. 

(Diego Crema) 

1 FOR H- 1 TO 1800 fi FR INT 
" CG IRLLOI [RVS30 ” ? EX 
T:PR INT" [HOME 3 [GRIGIO 
SITORC"; fi FOR Y=l TO 8 
7E5PRINT TAB < 4 3 * n ì IH 
EXT 


#44 


Diagonale. Ecco una utility carina per 
abbellire i vostri programmi. Qualunque 
messaggio tra apici verrà visualizzato in 
diagonale sullo schermo 

(Marco Benvenuti) 

1 PR INT" EGLEftR ] " : "SP 

ARARE tFOR 1*7 TO 1 S 
TER -1IPR1NTSPCC1£1)3 
IGHTStA*, I ); fiNEXT 


#45 


Higa Colonna. Indovina la riga e la colonna dove è posizio- 
nata la chiocciolina ed il computer ti premierà facendoli vedere 
due segni grafici. Simpatico, no? 

(Giovanni Giovanni) 

1 PR INT" CCLEAR] 1 : A = INTO20*RMK1 )> + 
IfiPCKE Ì1B3+A,0: INPUT X/Y* IF A + 12 
0=X+404Y THEN FRINT B BRAVO* 
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___ #46 

Slot Màcftlne* L una figa sì ispira alta famosa macchia e atta 
da casinò. Diamogli un RU Ne la mola della fortuna contincerà 
a girare. 

/Mario Guameri) 

l FOR A= 1 TO £0 3PR INT' tCLEAR 3 ■ INT(R 
MHI>*3) + 1, INT CRM3 < 1 ) *3) + 1 , INT <RN 
D<1)*3)+1 ihEXTA 


#47 


Gentif Computer, fi tuo computer 
Commodore 64, per dimostrarti la sua 
gratitudine ti saluterà offrendoti la vasta 
gamma dei suoi colori. 

(Giorgio Verdeokva) 

i IbPUJ nCLEAR nei ANCO 
] NOME " B*= *C I AD " +A 
$ = FOR X-0 TO £53 ! PQKE 
5328 1 ,X;FOR B=0 TO 9 
3:PRINTB$!|SEXTB,X 


#48 

Input al bufo. La frase digitata viene 
visualizzata in un tempo proporzionale 
alla lunghezza della frase solo dopo 
aver premuto il tasto RETURN. Tutto ciò 
per imparare a scrivere al buio. 

(Patito Manaroifa) 

ì INPUT ■ CCLEAR IDIG ITA 
FRASE t BLEU ] * J A* : PRINT 

■[bianco ita*; for i-i 

TO LEN<A*)*i50;NEXT:G 
OTO 1 


#50 

Colore, Prima k> sfondo poi II bordo ecco tutti » cotori del tuo 
sistema Commodore. 

(Uno natia) 

ì FOR 1 = 1 TO £55 1 PQKE 53380 , 1 5 FOR K 
= 1 TO 50 : MEXTK , I : FOR H=l TO £55:R 
□KE 53£S 1 jH i FOR Q = i TO 50i|\ÉXTiGO 
TO 1 


#51 

Lo specchio. Avete presente quei tubi 
di plastica attraverso i quali da piccoli 
avvicinando l'occhio vedevamo piccoli 
frammenti colorati riprodursi magica- 
mente ai lati? Questa routine simulerà 
l'effetto caleidoscopio sullo schermo del 
64 Commodore: basterà inserire delle 
parole per vederle riprodotte specular- 
mente a tato. 

/Roberto Morassi) 

1 GET REPRINT" [BIANCO 3 
"fì$; i A=PEEK <£1 1 > iPR IN 
T - [GIALLO! ■ TABC39-A) 
A$; iFOKE 211 rA t GOTO 1 


#52 

Terremoto. Una sconvolgente una riga 
che simula un muovimento sismico. Te- 
netevi forte e fate girare il programma. 

(Antonio Sorrentini 

1 FOR 1=0 TO 255IPRINTI 
JiPOKE 53270, li NEXTSG 
OTO 1 


#49 


L’omino allegro. Un simpatico omino che saluta all'Infinito 
chi io sta ad osservare. 

(Fabio Busnetii) 

1 PR INT" [HOME ] » " I PR INT’/8[S“ -PR INT 
■ | I " 1 FOR >t TO 300 ! hEXTtPR INT“ I 
HWCJWlPRINT - 8 ■SPRINT - / V*F 
OR 1 = 1 TO 300; KEXTi GOTO 1 

# 53 

Invertitore. Diamo una parola ed il minuscolo programma le 
invertirà, 

t Andrea Antoniazzi) 

1 INPUT mi 1 F m>*" THEN A-LENCN*)! 
FOR T= 1 TO A:PRI|srTWID*<N$,A+l-T,l 
> ; 1 ICXT SPRINT; GOTO 1 
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DISK DOCTOR 


di Giancarlo de Cobelli 


Con la comparsa sul mercato di mol- 
tissimi programmi su disco protetti, 
sono arrivate — in particolare dalla 
Germania — altrettante utility che 
permettono di analizzare il disco per 
scoprire come è stato creato Terrore. 
Possono essere creati su disco vari 
tipi di errori, che però si basano tutti 
sul medesimo concetto 
il sistema di creazione dell'errrore 
sta nel forzare determinati dati in- 
coerenti sulle tracce e settori del di- 
schetto, Quando il DOS (Disk Qpe- 
rating System) esamina i contenuti 
del disco, sia per lettura che per 
scrittura, esegue anche dei controlli 
di coerenza su determinati dati che 
non sono direttamente trasparenti 
all'utente. Queste forzature, se cosi 
vogliamo chiamarle, sono eseguibili 
con programmi di particolare com- 
plessità e varietà. 

Il programma che vi propongo non 
vuole rendere possibile una creazic^ 
ne di errore sul disco, ma esclusiva- 
mente permettere un esame del di- 
sco Stesso con l'individuazione delle 
possibili incongruenze. Il program- 
ma principale contiene una particola- 
re routine allocata in una precisa 
parte della memoria che controlla, 
se si verificasse durante la lettura del 
disco, una particolare condizione su 
una determinata traccia. 

Questa condizione può essere di di- 
versi tipi a seconda dell'errore che 
viene creato. Di solito si riscontrano 
t seguenti tipi dì errori che sono an- 
che citati sul manuale del floppy dri- 
ve. 

• Errore 21: il controller non è in 
grado di trovare il sincronismo sulla 
traccia desiderata 

• Errore 23: nei bytes dei dati regi- 
strati può esistere uno o più errori, 
cioè il dato è stato letto dalla memo- 
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Tutti i numeri 
che occorrono 
per essere il n.l 

delle stampanti in Italia 

1 Operare solo nel mercato delle periferiche 

2 Produrre più di 3S0.000 macchine all'anno 

3 Offrire una vasta gamma di modelli 

* Essere presente nelle varie fasce di mercato 
& Avere oltre 10 anni di attività in Italia 
& Investire in ricerche tecnologiche per anticipare le 
esigenze del mercato 

? Garantire una efficace assistenza tecnica su tutto il 
territorio nazionale 

Guarda casoi La 

/Mh MANNESMANN 

ALLY 

ha tutti i numeri... dal 1 al * 


ria del drive, ma è stato riscontrato 
un errore di checksum (un valore 
che serve a! DOS per controllare l'e- 
sattezza della traccia, ovvero il sin- 
cronismo delia traccia stessa con le 
altre presenti sul floppy). 

• Errore 27: nell'Intestazione di un 
blocco di dati è stato riscontrato un 
errore di checksum; cioè il blocco 
non è stato letto nella memoria del 
drive, 

• Errore £9: viene interpretato come 
un disco non inizìalizzato poiché ri- 
scontra delle diverse ID nella lettura 
delle traccio, infatti fio viene ripor- 
tato in una determinata maniera 
sempre al (Inizio di ciascuna traccia. 
Per sorpassare questo tipo di pro- 
blema possiamo seguire due vie: ri- 
portare l'errore sui disco copiato o 
eliminare il controllo dell'errore sul 
disco originale. 

Con i programmi in commercio è 
molto più semplice riportare l'errore 
sul disco copiato. Per fare ciò occor- 
re sapere principalmente che errore 
è stato creato sul disco originale. 


Utilizzando il programma proposto è 
possibile analizzare il disco per sa- 
pere se durante la formattazione so- 
no stati creati degli errori. 

Nelle prime righe viene inizìalizzato 
il drive per evitare qualunque pro- 
blema in lettura e controllato se il di- 
sco non presenta nessun problema. 
Le subroutines servono per la lettura 
della ID e per la relativa conversione 
in esadecimaie. 

Il menù presenta quattro opzioni: la 
prima dì queste serve per leggere l'i- 
dentificatore di ogni singola traccia 
(questo è molto utile per verificare 
se esiste l'errore 29 T poiché in tal ca- 
so gli identificatori sulle tracci© non 
saranno tutti uguali); la seconda op- 
zione permette di analizzare traccia 
per traccia l’eventuale esistenza de- 
gli errori mostrando il classico mes- 
saggio della lettura dello variabili, 
chiamate dal manuale ER. EMS, ET, 
ES f che ci fanno conoscere II tipo di 
errore riscontrato, il messaggio, la 
traccia e il settore dove sì è verifica- 
to, La terza opzione serve per una 


analisi più completa, anche se più 
lunga come tempo, degli errori ri- 
scontrati sulle tracci© per ogni setto- 
re (è possibile esaminare solo le 
tracci© interessante). 

La lettura dell'Identificatore è basata 
tutta sul comando Memory Read; 
questo permette di leggere diretta- 
mente buffers che il DOS ha Inizia- 
lizzato sulla RAM scegliendo il byte 
che si vuole conoscere 
La lettura degli errori utilizza lo stes- 
so principio leggendo i blocchi di 
bytes senza variare II puntatore del 
buffer, 

A questo punto manca solo un si- 
stema di creazione dell'errore riscon- 
trato sul dischetto originale. Per fare 
ciò. come ho avuto modo di dire al- 
l'inizio è necessario un sistema un 
po' più sofisticato del semplice pro- 
gramma in oggetto. 

In data odierna posso dire che esi- 
stono alcuni programmi per ottenere 
la forzatura di errori, si chiamano 
Clones e sono ormai di dominio 
pubblico. 


100 

REM 

*********** .*************** 

101 

REM 

* 


* 

102 

REM 

* DI SO DOCTOR 


* 

103 

REM 

* 


* 

104 

REM 

************************** 

105 

REM 

* 


% 

106 

REM 

* flUTHOR SOFTWRRE = 


% 

107 

REM 

* 


% 

108 

REM 

* GIANCARLO DE COBELL I 

% 

1m9 

REM 

* 


% 

110 

REM 


111 

REM 

* 


% 

112 

REM 

* Vie 20 + EXP. 

HO 

* 

113 

REM 

* COMMODORE 64 

SI 

% 

114 

REM 

* COMMODORE 4000 

NO 

* 

115 

REM 

* COMMODORE 8000 

NO 

* 

116 

REM 

* COMMODORE 16 

SI 

* 

117 

REM 

* COMMODORE PLUS 4 

SI 

# 

118 

REM 

* 


% 


113 REM 

120 : 

121 REM ###*#***^###!m**#*^**** 

122 REM # INIZIALIZZAZIDNE * 

123 REM ************************** 

124 : 

125 PQKE 53280. 6 ; POKE 53281 , 6 ■ PRIN 
T"CCLERR]" 


126 OPEN 15.8. 15.. "10” 

127 I NPUT # 1 5 . A : I F A THEN STOP 

128 OPEN 2.8. 2. : Q$=CHRÌ<0) 

129 ID=16 + 6 : GOTO 145 

130 = 

131 REM **##*##**#*#**##**#******* 

132 REM * SUBROUTINES * 

133 REM **##$*****##*##**#****$*** 

134 : 

135 MH= INT < MEM/256 > : ML=MEM-MH*256 : 
PR I NT# 1 5 . " M-R " ; CHR$<ML) ; CHR* < M 
H> 

136 GET #15. fl$:FM=lSCOfl*+£$> RETURN 

137 : 

138 FRINT"$”.; : NL=INT<BV/16> -OOSUB 
139!NL*BY-16*NL 

1 39 PR I NTM I B$ <"01 2345S739RBCDEF " . N 
L+l.l>; ; RETURN 

140 : 

141 REM ***************:**#******** 

142 REM * MENU' * 

143 REM ####***#******#** #******## 

144 : 

145 PRINT TAB< 15> "[RVSHCLEAR] [VIO 
LA] DISC DOCTORCRVOFF]" 

146 PRINT TFlB< 12 VE3 BONN] [VERDE] 
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MENU ***" 

147 PRIHT TAB<11) H C3 DOWN 3 [RVS 3 IAR 
ANC3 1 . 1 RVOFF 3 C VERDE 3 LEGGE ID 

il 

148 PRINT TRB < 1 1 ) " [ DOWN ] [ RVS ] C RRflN 
C3 2 . C RVOFF 3 C VERDE 3 TRGVR ERRO 
RI 11 

149 PRINT TABC 1 1 > " CDOHN3 [RVS3 [ARON 
C3 3. I RVOFF 3 [VERDE 3 ESRflINfl ER 
PORI" 

150 PRINT TAB(1 1 > "IDOWN3CRVS3IRRRM 
C] 4. I RVOFF] [VERDE 3 GUIT" 

15! PRINT" [3 DOWN 3 SCEGLI (1-4) ? " 

152 OPEN 1,0: INPUT#! , fif : CLOSE 1 : fi* 
VRL(Af > ; IF R«0 THEN 145 

153 IF R>5 THEN 145 

154 ON ROOTO 160,175.192,216 

155 = 

156 rem ************************** 

157 REM * LETTURA ID * 

158 REM ************************** 

159 ; 

160 PR I NT " [ CLERR 3 C DOWN] I V I OLR 3 E RVS 
3 LEGGE IDCRVDFF3C2 DONNI" 

161 POR T=1 TO 35 

162 PRINT# 15, "U1 '2,0, ";T;",0" 

163 MEM= I D = GOSUB 1 35 = I Z= A ’ MEM= I D+ 1 
: GOSUB 135 - 

164 PR I NT " [ARANC 3 I RVS 3 "RIGHTf (STRI 
< T > , 2 > ; . I RVOFF 3 1 VERDE 3 I D= " , CH 
Rf C 34 > J CHRf (I Z > i CHRf (fi > ; CHRf (3 
4>;" 

1 65 EV= I Z : GOSUB 1 38 : PP I NT “ , : BY=H 
■GOSUB 133 

166 PRINT TRBC20); : IF T/2=INT(T/2) 

THEN PRINT 

167 NEXTT 

168 GOSUB 217 

169 PRINT" E CLERR 3 " : GOTO 145 

170 ^ 

171 REM ************************** 

172 REM * TROVA ERRORI * 

173 REM ************************** 

174 : 

175 Sf = " I CLERR 3 IV I OLA 3 E RVS3 TROVA E 
RROR II RVOFF 3 [DOWN]" 

176 PRINTSf 

177 FOR T=1 TO 35 

178 PP I NT " [ RVS 3 E RRRNC 3 " R I GHTf CSTRt 
<T>,2> [RVOFF3"; 

179. PR I NT# 1 5 , "U1 2,0, "il, ",0“ 


1 39 INPUT# 15, Af Dì ^ DDf=Af+ " , 
* +Bf + " , " +C* + 11 , "+Dt : PR I NT " C VERO 
E 3 M BD$ 

131 IF TOl? THEN 134 

182 GOSUB 217 

183 PRINTSf 

184 NEXTT 

185 GOSUB 217 

186 PRINT" CCLERR J" : GOTO 145 

187 ■ 

188 REM ************************** 

189 REM * ESAMINA ERRORI * 

190 REM ************************** 

191 ^ 

192 PR I NT " E CLERR 3 E V I OLA 3 C RVS 3 ESAM I 
NR ERROR I C RVOFF 3 [DOWN 3 " 

193 PRINT" [VERDE 3 CHE TRACCIA (T1,T 

2 ) 

1 94 OPEN 1,0:1 NPUT # 1 , T 1 f , T2f : CLOSE 

1 

195 TI =VHL ( T 1 f ) : T2= V AL ■: T2f ) : I F TK 
=0 OR T2>35 THEN 194 

1 96 Sf = " [ CLEAR 3 C ARANO 3 [ RVS 3 TRC SC 
T ERRORE MESSRGG I OE RVOFF 3 " 

197 PRINTSf 

193 FOR T=T 1 TO T2-F0R S=0 Tu 99 
199 PRINT# 15, "U1 =2,0, ";T; ", "S 
230 INPUT#15,H$,B$*IF Rf='‘66" THEN 
207 

20 1 PR I NT " I VERDE 3 "RI GHTf < STRf <T> , 2 

? 

202 PRIHT "CUP 3” TABC5 >R I GHT f <STRf < 

S>,2) 

203 PRINT" [UP3" TAB( 12)Af 

204 PRINT" CUP 3" TAB< 18>Ef 

205 IF Af="00" THEN PRIHT"CUP3" 

206 HEXTS 

207 GOSUB 217 

208 PRINTSf 

209 NEXTT 

210 PR I NT " [ CLERR 3 " : GOTO 145 

211 : 

212 REM ************************** 

213 REM * FINE * 

214 REM ************************** 

215 : 

2T6 CLOSE 2 CLOSE 15-SVS64738 
217 PRINT: PRINT" [ VIOLA JPREMI [RVS 3 
SPACECRVOFF3 PER CONTINUARE" 
213 GET Af : IF OR flf<>" " THE 

N 213 

219 RETURN 
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Scambiativi le liste 


Tutto to ri chtoatfl di v«ndo-S»nWo-C«npro 
pro^iinwil p#f i . i varranno dtMi •icluilw r 
rrwnto con II iota noma, cogrvom» «d Indirti- 
io. Sta ■ voi tottoH «cambiarvi to warto nato. 
Varranno pubblicati Integralmente a giudizio 
dal caporedattore, quagli annunci eh* non 
fanno parte dada categoria di cui »pn. Buo- 
ni scambi a vandrt*!' 

(Gloriano notai) 


Francesco Cinquini via Barcara 54011 

Aulla {MS) 

Massimo Andrian via Aquiloa 63 35070 
Villesse (GO) Tel. 0461/91095 

Stefano Brighi via Magliaia Nuova 2B4 
00 1 76 Roma Tel. 06/5283420 

Andrea Sant via Olaz 18 33010 Troppo 
Grande (UD) Tei 0432/960601 

Simon# Lombardi via V. Emanuele 205 
55041 CamaJtxe (LU) Tel, 0584/989728 

Roberto Cavatalo via G. Agneli 1 10070 
Robassomero (TO) Tel. DI 1/9295066 


Giuseppe Bellinghieri Gas. Postale 53 
Contesse 9810G Messina Tel. 090/2712633 

Paolo Riviecckj via Mùntetene 1 15 57100 
Livorno Tel. 0586/807043 

Francesco Basile via Ortigara 14 31100 
Treviso Tel. 0422/579627 

Maurizio Parenzan via Gabrieli 13 70125 
Bari Tel. 080/368291 

Marco Pendino via Betti 25 20100 Milano 
Te! 02/3087174 

Stefano B&rcaroli via B. Buozzi 8 05021 
Acquasparta (TR) Tei. 0744/930387 

Massimo Mazzoli via E Fornii 5 42022 
Boretlo (RE) Jet 0522/686155 

Francesco Gin via S. Croce 1315 30125 
Venezia Tel, 0421/81241 

Guido Demicbefts Guido via Sondrio 9 
10f 44 Torino 

Silvano Bompieri via Baccani ieri 6 46040 
Monzamtoano (MN) Tel. 0376/845372 

Alessandro Za nel lato Condominio Cicla- 
mino 10090 Romano Gariavese (TO} 

Luca Viola via Prraruggia 25/1 1 6030 Pieve 
Ligure (GÈ) Tel 010/3460475 

Michel* Petracca via Donatello 12 35027 
N Padovana Tel. 049/627164 

Roberto Manfroni via B, Bugzzi 4 00049 
veltetri (ROMA) Tel. 06/9636398 

Fabrizio Rizzi via Castel to 3060B 30122 
Venezia Tel. 041/22883 

Cario Pezza via S. di Santarosa 61 D0149 
Roma Tel. 06/5281016 

Sandro Natali via XVI Luglio 36 50019 Se- 
sto F.no (FI) Tel 055/448140 

Andre# Buongiorni via Cf>eli 42 28100 


Piacenza Tel. 0523/73071 

Marco Sobrio via Lucca 36 20152 Milano 
Tel, 02/4591526 

Giuseppe Di Lello C so Europa 13 66054 
Vasto (CH) Tel 0673/4393 

Claudio Giacchetta via Cave 36/A 60020 
Sfatto (AN) Tel 936098-936196 

Cristiane Stasi via Smaldorte 21 71100 
Foggierei, 0881/86068 

istituto Educativo per scambi senza fine di 
lucro, disporlo di offre 200 programmi per 
VIC-20 (giocW didattica} e di dire 1000 pro- 
grammi per Commodore 64 (giochi, didattica 
linguaggi, uttfrtv. package}. Preferibilmente 
zona Napoli, per contatto diretto Tel 
7418802 ore 10-16, 

Istituto "Opera per la salute del fanciul- 
lo" via Belane 4 Napoli è interessato a visio- 
nare e valutano eventuale collaborazione per 
sofware di tipo didattico per la lascia de Ha 
scuoia materna ed elementare implementa’ 
b<le su Commodore 64 e VIC— 20 Tel 081/ 
7418802 ore 10-16. 

Carco espansioni RAM e cartridges 
(es. Foflh. Worticraft Programmer 
Aid f sì per VIC-20, Offro in cambio prò 
grammi a scelta, e nella quantità deside- 
rata tra oltre 200 titoli fi migliori). 
Vincenzo Carrone via G. Pascoli 67 
86 1 00 Campcbasso Tel 0874/91 995 

Vendo Commodore VIC-20 più regi- 
stratore Raffaele Lubrano via Virglio 62 
20017 Rho Tel. 02/93169656 

Vendo Commodore 64 più copritastie 
ra, registratore 1530. più vari giochi ed 
Utilities. Il tutto usato pochissimo a lire 
600.000. 

Rolando Carlini via Stoccolma 51 47037 
Rimini Tel. 054 1/3336 8 

Vendo Commodore VIC-20 usato solo 


Luigi Domuso via Bellani 3 20124 Milano 
Idi 02/6705774 

Jurgofl Morti alar vi# Lorenzo il Magnifico 
148 00162 Roma Tei. 06/4270418 

Michele Martino via Fanin2 71013 S. Oto- 
vanni Rotondo Tel. 0682/854289 

Claudio Quaglia via G#rmonto 11 10095 
Grudiasco (TO) Tel, 01 1 /7Q2951 

Gian Maria Agratti via Od Genio 4/5 
40135 Bologna Tel 051/414630 

Alberto Fra betti via Ricciarelli 139 44100 
Ferrara Tal. 0532/61034 

Giuseppa Borracci via Mameli 15 33100 
Udine Tel 0432/291665 


62 -Commodore 



2 mess al fantastico prezzo di lire 
159.000.pnj in regalo un joystick una 
cartuccia e 5 cassette (prezzo 
trattabile). 

Mau ro Imbriani via Veglie 83 7304 1 Car- 
mìano (LE) Tel. 0832/671562. 

Vendo stampante Commodore MPS- 
802 nuovissima con garanzia e fattura, 
in regalo un Word Processor (Hes Wri- 
ter), a lire 450,000. 

Michele Reboli via Beriieri 7 20146 Mila- 
no Tel .02/47 1541 

Vendo interfaccia che collega H Com- 
modore 64 con qualsiasi tipo di registra- 
tore a lire 25 000 comprese spese 
postali. 

Massimo Mazzoli via E. Fermi 5 42Q22 
buratto (RE) Tel 0522/686165 

Compro Commodore 64 a prezzo ra- 
gionevole. Oppure cambio con Alari 
VCS 2600 corredato di 7 cartucce più 
Commodore VIC— 20 espanso a 16K 
con 1 00 programmi su cassetta. 
Giuseppe Paterni! i via Nazionale Cond. 
Etna 28030 Traopiteiio (ME) 

Vendo dischetti Nashua a lire 3700 e 
programmi per Apple IBM e Commodo- 
re 64 

Luigi Domuso via Banani 3 20124 Mila- 
no Tel. 02/6705774 

Vendo V 102 Q più IGKpiO cartuccia He- 
smon più registratore originale con le 
migliori utility ed i migliori giochi. Il tutto a 
lire 350 000 

Riccardo De Mania via Rinuccini 3 
20125 Milano Tel 02/2870233 

Vendo per passaggio a sistema superiore. 
VIC 20 con registratore C 2 N più espansione 
grafica da 3 KRAM + joystick + penna ottica 
+ mattissimo software commarctate su cas- 
setta Il tutto corredato da manuali o pedetla- 
mente funzionante a lire 400 000 (Toschi 


Vladimiro - Via Berrtivoglì 32 - 40055 Caste- 
naso (SO) - 051/7B4271 dopo le ore 12}. 

Vendo VIC 20 + registratore C2N + joystick 
+ Basic parte 1+80 giochi in cassetta + 1 
cartridge + il libro "Alla scoperta del Vie 20" 
a lire 300,000 non trattabili. (Claudio Spadaz 
Zi - Vìa Tito Papiro 14 - 47100 Fori) - 0543/ 
35602 ore pasti). 

Vendo computer CBM-RET-3032 nuove 
ZROM amplificatore radio incorporato ma- 
nuali d'uso Basic, aggiornamenti, libri pro- 
grammi: W.P., EXT. Basic, assembler, dos 
support, scacchi e livelli L.M. e decinedi gio- 
chi il tutto a lire 1 ,000 000. (Basso Gianfranco 
- Via Pannrtta 24 - 35100 Padova 04W 
766252 orario pasti) . 

Vendo Vie 20 nuovissimo settembre 84 
usalo pochissimo + 2 manuali + 4 cassette 
gioco tutto a lire 200.000 (Gaudio Qavatla - 
Via MaronoetiÈ 2 - 47036 Riccione - 0541/ 
6Q46G6 orario pasti). 

Vendo per Vie 20 nuovissima scheda che 
rende la registrazione dei programmi veloce 
quanto il disk drive (25K al minuto j, con con- 
nettore per eventuali espansioni tire 35 000 
Vendo inoltre scheda Rem che oltre a portare 
a 40 cotenne i l Vie lo rende compatibile FET/ 
CBM a lire 35 000. (Gianni Bozzi - Via Savo- 
na 16/s - 20099 S,3. Giovanni (MI) - 02/ 
2407825). 

Compro oppia dei numeri 5 e 6 di Commo- 
dore Computer Club. (Franco Spada Via 
bardella 444 -91100 Trapani - 0923/22301 
ore ufficio). 

Vendo traduzione delle istruzioni del video- 
gioco "Solo Flight ', simulazione di volo, lire 
5000. (Budal Anna - Località Log 192 34010 
S. Dorligo Valle (TR) 040/813145). 

Vendo 'Basic enciclopedia d&IF informatica 
dèi mini e personal Computer" completa di 
copertine e frontespizzi aggiornata all'ultimo 
la scroto uscito (o eventualmente terminata). 
Mai sfogliata per mancanza di tempo con 
sconto del 20% del prezzo di copertina 


(Giorgio Tonem - Vta Cornano 36 - 54036 
Mari na di Canora - 0565/634283 dopo le 19). 

Vendo Ertended Basic per CBM-64 com- 
pleto dì istruzioni a lira 40 000 (Pietro Nieddu 
-Via Bianchi i - 07 1 00 Sassari) 

Vendo por Vie 20 espansioni 3K super Gra- 
fi* o 16K rispettivamente a lire 50000 e 
1 10 000 + lire 2000 por spose spedizioni. 

I toro di grafica con 38 programmi per 3K 
super Grafi* a lire 1 0.000. Libro "Alla scoper- 
ta del Vie 20" a tire 15 000 (Feirari Fabio - Via 
Araldi 5-29100 Piacenza - 0523/753283 
dopo kt oro 18}. 

Vendo o cambio 2 cariucce per CBM-64, 
Avanger e Klcfc Man con Music Machine + 
Music Gomposor (Porcellana Claudio - Via 
Olmi 5 - 10048 Vinvo (TO) 9651559 Ore 
pasti) 

Vendo Vie 20 (causa passaggio a sistema 
superiore) + registratore dedicato + joystick 
professionale + 3 marmali + 1 cassetta con 
40 stupendi giochi ♦ otite riviste e piu di 300 
programmi II tutto in ottimo condizioni a lire 
380 000 trattabili anche in pezzi separati. 
(Giovanni Azzara - Via Peone 3 - 20089 Ruz- 
zano (I) - 02/8240807 pre 20 alte 22}. 

Vendo Commodore Vie 20 + cartndge "Hes 
wriler" +carindge "Super expancter” + cir- 
ca 200 Video Games per il modico prezzo di 
lire 230 000 (anche singoli pezzi). Tutto per- 
fettamenle funzionante. (Michele Pozzi - Via 
Coll M Luigia 15 43100 Parma - 0521/ 

32165 ore pasti). 

Vendo causa passaggio a CBM-64, Vie 20 
+ 70 giochi su cassetta a lire 200,000 (non 
trattabili). Il sistema è in ottimo state ed efti- 
contiasimo (Monticelli Luca - Via Rii Rressan 
4 - 20126 Milano 02/2551 762 ore pasti). 


Vendo stampante GP 100-VC nuova, col te- 
gabite direttamente al CBM-64, a Nre 350.000 
non trattabili, preferibilmente zona Milano e 
provincia (Pamigoni Fulvio Via Fo$oofc>41 - 
20050 t esmo (MI) - 039/6980089 ore dalte 
12 alte 13) 


Gammodbre - 63 



IN LIBRERIA 


Jtteilbom, RToibott 

Guida al Commodore 64 

P*g440 L 360 Q 0 


Gfi^ere 

BSawyer 

Divertirai giocando con 


pag 2*0 L 22 000 


HReckhan 

M BASIC e il 
Commodore 64 
m pratica 

pag.3E2 L27000 


SOFTWARE su cassetta 

Commodore 64 Assembler / Disaasembler (in preparazione) 


La Mdjrav-Hid pubblica in tulio il mondo dormo di titoli dedicati ai 
calcolatori della Commodore 

Richiedete il cala Logo del libri in lingua tlaliarui o il McGr&w Hill Computer 
Catalogue per la produzione in lingua inglobo 


distribuzione in librerie 

Messaqujene Libri SpA 

Via Giulio C arcano 32 
20M5 Milano 


tV.fr a* Hill Book Co GmbH 

Lademannbogen 1 36 
0 2000 Hamburg 63 
Rep Federale Tedesca 


E t^fl COnPUTEfìS 


CATALOGO GENERALE 


ESTRATTO 


Ore ammisi ja.oco 
l*t. S-Cntri^iu K.KD 
►et -■ EtCC St<ar . iffl.fl® 
iiffer m. :«ntr. ÌK-.tCj 
Set Et «C OCCI 

kmilv ivi* > 75.000 

ire.ooù 

State. Tl 1 : jf «W MC.000 
l ipw. \V TIC UB.WB 
5» TIC 1*4.000 
40**4 kh ZtX 00 

DÌKlxf fCMl. io n.sx 
Nutrì' CIO.2D-30s.10 I2.00C' 

tk Eprort ?rrgr„ Fad.lXH 
tic leol.jfl. H iloti) SS.K» 


iprite ÒUtìr «.ODO 

erolrctoc ?Ì(J.(BÓ 

Chiavi flrgtijKw» lO.DQO 


£' U orlivi* mite' che perenti i di 
«IFCgirsI 1 quelillil bartCi diti, 
1 priMren»! m «ture Cr* 
utfnl'. OiSpùieÌDIle prfiìlsirifc w\ 

OniTV di Cfl-1 le^tMntd B nimbi li brutti 

tv». CHjtctm Ascilo cratui td svTI- 

letBppldtftr*,, nortm. m bendi* etili. 


awfLCJyngiiE* 

IfHnhdtlc IDI 
Ptctayiph (CJ 
hefllr ;ì*1nl Ili) 
Ngilj D< Ini | Di 
P*fKMr-fliU| iB]* 
SjFKttiy (&1- 


Cinipi Fatù« DTLtMJ- iQ.rn 
Aggiro CanpitadjQ) rii, cito 


Prt lot*<\ mi ru OW 

msw* i S 


Pel ÌJAMtf 
E*iy Script 
5 inori Bisic 

Hitlrr 

Tool 


«tilliM Menti 
k*U IDI 
r*lUir ir lentia] 

UMltor f«; 

*0 celgfiitf 1*1 


64-Corrìmo<fQr8 








un consiqih 




fi mio 
computer 
è configurato: 



Se vuoi 
vendere 
o comprare 


m Registrate il mio abbonamento annuale a Commodore. 

m □ Ho versato oggr stesso fi canone di Lire 26 000 a mezzo c/c postale n° 31 532203 intestato a: 
m Commodore Systems Editoriale ■ Vie Famagosta, 75 - 20142 Milano 

u O Accludo assegno per lire 28,000 banca ....... . . . n* a favore di 

Commodore Systems Editoriale 

! Il mio computer è: ViC 20 C 64 □, altro (specificare) 

m Ho □ f non ho □ La stampante, ma voglio □ comprarla, 

! Preferisco programmi di gioco O, didattici □. dualità C, altro ..... __ 

m Nome — - Cognome 

■ Via n° CAP. LJJJJJ Città 

■ Tel. 


I 

■ Registratemi fra i collaboratori regolari di Commodore, 

* A tito to d t prova vi invio u n articolo e la cassetta coi prog ram ma“ 

* ” di coi vi garantisco {'assoluta originalità autorizzandovene la pubblicazione. 


□ Scrivetemi al Hndì rizzo sottoindicato 

Nome ..... ..... - 

Via J N° 

Tel, ^ _ _CAP' . Città 


I— 

m HELP 



m Nome 



J Via _ n» CAP, ! I I I I i Città 


■ 

■ 

Tei’ 

Orario 








Sono in 


Ho Intenzione 

■ 



possesso 

No 

di acquistare 

■ 

Vìe 20 □ C T6 □ Pi us 4 D C640 

□ 

□ 

□ 

e 



□ 

□ 

□ . 

1 

Floppy □ 

quale: 1541 □ altro 

□ 

□ 

□ 

m 

Stampante □ 

quale: MPS801 O altro 

□ 

□ 

□ 

a 

Rlotter □ 

quale: 1520 □ altro 

□ 

□ 

O 

m 

Registratore □ 

quale: 1530 □ altro 

□ 

□ 

o 

M 

m 

Televisore □, TV-Monitor □, Monitor O, Colore Q B/N □ 




g 

Nomò 

Cognome 




8 

Vìa 

n° CAP. ! 

M M 1 Città 



Tei 






Vendo □ Compro □ 


SI ...1 - 


, ,. - 


3 




a .. ... 

3 

a Nome 




J Via _ . 

n° „ 

CAP ! I M 1 1 Città 


15 TeL_ _ _ .. _ 


Orario 




V 

. 


Spett.le rivista 
Commodore 

Ì Systems Editoriale 

c 

| v.le Famagosta, 75 

è 20142 Milano 

tU 

O 


% Spett.le rivista 

| Commodore 

S Systems Editoriale 

C 

§ v.le Famagosta, 75 

1 20142 Milano 

tu 

a 


tu 

1 Spett.le rivista 

| Commodore 

Systems Editoriale 

c 

v.le Famagosta, 75 
1 20142 Milano 


i 


1 


m 

O 


cu 

</) 


u 

00 

3 

g 

o> 

cu 

'> 

g 

cu 


Spett.le rivista 
Commodore 
Systems Editoriale 

v.le Famagosta, 75 
20142 Milano 



Si, voglio 
abbonarmi 


Si, voglio 
collaborare 


Si, chiedo 
consiglio 


Si, voglio 
votare 


Si vendo/ 
compro 




Un'iniziativa condotta con 
la nota rivista Computer 


PROGRAMMO IN 
BASIC 


• * 

* * 

■ V 
* é 
m « 


* I 

* 4 

* * 

■ 4 - 

* 4 

* 4 

* 4 

* 4 

* t 

* 4 

» 4 

4 4 

» * 
m m 


tf linguaggio dei futuro in un 
manuale rapido e completo df 
Clizia Merli 
pumi- S24 (L 9 000) 

U Basic. attualmente it 
'r.nguaggro più conosciuto ■ 
adatto afl'utiMzzo su oualLm-que 
tipo di macchina e in 
particolare sul personal e gli 
home-computer può essere 
appresa in poche ore con 
l'ausilio di questo agile 
manuale 


COME SCEGLIERE UN 
COMPUTER 

Guide pratica por l'acquisto di 
un mini 0 d un miao computer 
professionale di Micnete 
Di Pisa 

pagg m (L 0 000) 

Quale modello seegi ere tra gS 
oltre 600 computer 
cammerc situati In Italia? U 
conoscenza delie 
caraneristiche certe vane 
macchine è inda, pensabile. Con 
un approccio a menu" 

! 'Autore vuol essere guida 
proprio m questa fase. 


UTILITY E ROUTINE 
PER IL 

COMMODORE 64 

di Gloriano Rossi 
pugg 192 (L 9 000) 
L'esecuzione di una istruzione 
BASIC putì richiedere diverse 
centinaia di passi dì programmi 
In lingu aggio macchina. La 
dimensione de< programmi e 
ciò che intimidisce 
maggiormente I utilizza (ore 
medio di Commodore aiutate 
da questo testo chiunque potrà 
affrontare senza problemi ■( 
processo di scrittura di un 
programma. 


BASIC PER LO 
SPECTRUM 

di Maurino Afferà » Cimo Merli 
pagg 192 (L 9 000) 

Un libro per quanti hanno 
acquietalo II computer ZX 
Sfwctrutn delia Sinclair e 
intendono sfruttarne appieno 
tutte le capacità, dall ‘hardware 
alia programmazione in 
assembiy (linguaggio 
macchina) 


E volumi, che sono comunque in vendila nelle migliori librerie di tutta Italia^ 
possono anche essere richiesti direttamente all 'Editore. 

Importante lordine minimo dovrà essere di L. 15000 


>c 


DIZIONARIO 
DELL INFORMATICA 

Voce botano ingieseAtakano dì 
CuitrarA. Dr Pisa. Giacomelli 
pagg. 388 (t 25 000) 

Uno strumento indispensabile 
per chi si avvicina al mondo 
del! informatica e per gli 
specialisti che hanno l'esigènza 
di accedere alla dinamica 
letteratura anglosassone 


Edizioni A CANTHUS 

VIALE GRAN SASSO, 23 ■ 2Q131 MILANO 


Inviatami i seguenti volumi: 


quantità 


spese postali 


Pagherà conTrassagna iE dovuto (più L 2 000 per contributo spese postali) al ricevimento 
Potrò restituire i libri entro 8 giorni se non saranno di mio gradi memo e avere il rimbor- 
so rmmedr&tp. 


NOME 


CITTÀ 


FIRMA 


Scrivere in stampatele e spedire in busta chiusa. 





SCOPRI LA DIFFERENZA DYSAN 




Perchè Dysaril 
Le Quattro 
Ragioni Per 
Preferire la 
Differenza 
Dysan 


"*^**11^ >■' I ~ lMW.ln.ll | f, ' 

>1 I I HUt 1^ HtM'OH Hi. MM'IÉI 

M PI Kilt 11 PRIVI \ mi III VWSlttt 


1 100% di superficie 
< testata 4 *error free 


2 Esclusi va tecnica 
t di Burnishìne 


3 


Speciale 
i lubrificazione 


4 


Certificazione 
i totale 


Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
IU0% "érror free’; un test 
esclusivo lenifica le tracce 
e Io spazio tra le tracce 
as s i cu i a n do pre stazi on ì 
“errar free" anche in 
presenza di 
disallineamento delle 
testine 


Solo Dysan garantisce una 
superficie * a specchio" 
grazie alla sua avanzata ed 
unica tecnica di 
"bumìshing" questo 
risultalo assicura un 
miglior segnale sulle 
tracce, ima minor 
turbolenza sulle testine, 
consentendo un sicuro 
ma n leni ni enti» dei da t ì 
di fio milioni e milioni di 
rotazioni. 


Solo Dysan garantisce* 
mediante uno speciale 
procedimento di 
lubrificazione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante DY Uh che le 
prestazioni "errar free" 
siano esaltate e mantenute 
nel tempo. 


Solo Dysan garantisce* con 
il suo metodo automatico 
di controllo qualità di tutta 
la produzione (risultalo di 
una tecnologia leader nel 
mondo) che ogni diskette 
prodotta sia stata 
singolarmente testata c 
certificata, 



datamatic 

tratta &£ne ituo CalCOìatoke 


Datamatic SpA 
via Volturno. 46 
20124 Milano 
tei.: 026073876 (5 I ne® r. 
telex: 315277 S ADATA 1 


Filiale di Roma 
via Cina di Cascia. 29 
a) tei. 063279967 




